DDC  FILE  COPY,  ADA043008 


NAVAL  POSTGRADUATE  SCHOOL 


r'Prp^nnf/f 

AUG  18  ,977 


Approved  for  public  release;  distribution  unlimited. 


SSCURITV  CLAMiriCATlON  Or  THIS  »AOK  (Wkmt  Omm 


REPORT  DOCUMENTATION  PAGE 


READ  OfSTRUCrrONS 
BEFORE  COMPLETINO  FORM 


*.  NCCIAICNT’S  catalog  numscn 


MONITORINO  AOCNCY  name  • AOONUVIf  Mlimni  Inm  Cantrmllimt  OlHea) 

Naval  Postgraduate  School 
Monterey,  California  93940 


l«.  OISTNiauTION  STATEMENT  f9l  M»  RcRwtJ 


Approved  for  public  release;  distribution  unlimited. 


«T.  OISTRIEUTION  statement  (9l  IN*  atalTMt  anlaraM  hi  RImA  M,  II  Alftorant  Irmm  Rahwt; 


tt.  KEY  ROROS  rCanlhiM  an  Mvaraa  II  nMaaMiT  aiK  Umlllr  Sf  Ma«a  maihaO 

COBOL,  compiler,  formal  grammar,  microprocessor,  microcomputer, 
LALR(l),  HYPO-COBOL 


20.  AISTRACT  an  ravaraa  a<«a  II  naanaaair  anO  IManMI^  *r  MaaJi  af  Sarj 

■^A  compiler  for  ADPESO  standard  HYPO-COBOL  has  been  imple- 
mented on  a microcomputer.  The  implementation  provides  nucleus 
level  constructs  and  file  options  from  the  ANSII  COBOL 
package  along  with  the  PERFORM  UNTIL  construct  from  a higher 
level  to  give  increased  structural  control.  The  language  was 
implemented  through  a self-hosted  compiler  and  run-time  package, 


DO  U73  EDITION  OP  I NOV  St  It  OMOLETE 


S/N  0I02-0I«>SM1  I 


SECURITY  CLASSiriCATION  OP  TNIt  RACE  (R^an  Oata 


1 


Approved  for  public  release;  distribution  unlimited 


MICRO-COBOL 
an  i tno  1 ement  at  i on  of 
Navy  Standard  Hyoo-Cobol 
for  a microprocessor-based  computer  system 


by 


Alan  Scott  Craia 

Captain#  United  States  Marine  Corns 
8.S.#  Brioham  Youna  University#  May  1R71 


Submitted  in  oartial  fulfillment  of  the 
reouirements  for  the  degree  of 


MASTER  OP  SCIENCE  IN  CCMPUTEO  SCIEWCF 
f rom  the 

NAVAL  POSTGRADUATE  SCHOOL 
March  1977 


Author 


Approved  by 


^ ^ i ^ Thesis  Advisor 



Q y Second  Reader 

- 

Chairmafi#  ^epa/tment  of  Comnuter  Science 

/] 

./i 

Dean  of  Informatio n/^n d Policy  Sciences 


ABSTHACT 


r 


i 


-A 


A compiler  for  ADPESO  standard  hyPO-COBOL  has  been  im- 
plemented on  a microcomputer.  The  implementation  provides 
nucleus  level  constructs  and  file  options  from  the  Afisil 
L06UL  package  along  with  the  PERFORM  UNTIL  construct  from  a 
higher  level  to  give  increased  structural  control.  Tne 
language  was  implemented  throuoh  a self-hosted  compiler  and 
run-time  package  on  an  BOBO  m i c rocompu t e r -oaseo  system, 
doth  compiler  and  interpreter  can  ne  executed  in  IdK  bytes 
of  user  storage. 
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INTRODUCTION 


A.  HISfOKY  OF  COBOL 

As  indicated  in  tHe  name»  COBOL  - COmtnon  business 
Oriented  Language  - was  intended  to  be  a common  standard 
computer  programming  language  with  consistent  imolementa- 
tions  on  various  machines.  Backed  heavily  by  the  Department 
of  Defense/  COBOL  has  become  a widely  accepted  1 anguage  for 
data  processing  aopl i cat i ons . Over  the  fifteen  years  of  its 
existance  the  language  has  undergone  several  revisions  and 
still  continues  to  be  ungraded  and  changed  (IJ. 

The  evolution  of  COBOL  has  resulted  in  a large  1 anguage 
containing  numerous  capabilities#  many  of  which  are  not  ap- 
propriate for  a given  machine  nor  desired  by  a class  of 
users.  For  this  reason  the  COBOL  language  is  broxen  down 
into  modules  which  may  be  implemented  at  various  levels. 
The  minimal  standard  COBOL#  as  currently  defined#^  contains 

only  the  lowest  levels  of  three  modules  out  of  the  possible 

% 

twelve  modules  which  currently  exist. 


I 
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B.  MOTIVATIONS  OF  HYPO-COBOL 

None  of  the  existinq  standard  sets  of  COBOL  modules  fit 
the  requirements  of  the  Department  of  the  Navv»  and  thus 
HYPO«COBOL  was  developed.  Rather  than  taking  one  of  the  im- 
plementation levels  oescribed  in  the  standards  another  sub- 
set of  the  complete  instruction  set  was  developed  which  in- 
cludes only  parts  of  modules.  riYPO-COBUL  was  designed  ;o 
impose  minimal  reauirements  on  a system  for  compiler  sup- 
port. Where  possiolef  short  constructs  were  used  in  tne 
place  of  longer  ones.  Where  multiple  reserved  words  serve 
the  same  function  in  COBOL/  the  shortest  form  was  used. 
T IS  no  optional  veroage  in  the  language/  ano  there  are 

jcate  constructs  performing  the  same  function. 

Limits  were  placed  on  all  statements  that  have  a vari- 
able input  format  so  that  all  statements  have  a fixed  max- 
imum length.  where  possible/  such  constructs  were  removed 
completely  from  the  languaae.  In  addition/  user  defined 
names  were  limited  to  twelve  characters  to  reduce  symbol 
table  storage  regu i rement s . 

Rather  than  include  the  standard  levels  of  implementa- 
tion for  all  of  the  modules/  constructs  were  included  only 
as  required.  In  audition  to  low  level  constructs/  the  PER- 
FORM UNTIL  construct  was  included  to  allow  better  program 
structure.  Further  justification  for  the  manner  of  subset- 
ting  and  a highly  oetailed  description  of  each  element  of 
the  language  is  contained  in  the  HYPO-CObOL  Manual  (101. 


C,  MICHOCOMPUTFRS 

Current  technological  advances  in  the  desion  of  in- 
tegrated comouter  components  have  lead  to  the  oroliferation 
of  single  chip  central  processors  known  as  m i c rocompu t e rs  . 
Ihe  number  of  chips  produced  and  the  varying  capabilities  of 
each  oroduct  make  genera  I i zat i ons  very  difficult.  The  term 
m i c rocomput e r » howeverr  is  generally  used  to  describe  a sys- 
tem built  around  one  of  these  processors.  Such  a svstem 
would  have  memory^  inout  and  output  capabilities/  and  timing 
circuts  as  well  as  a central  processor.  One  chip  systems 
with  all  of  these  capabilities  are  currently  becoming  avail- 
able. 


I.  Hardware 

The  most  sianificant  factor  in  the  proliferation  of 
m i c rocomput er-oased  systems  has  been  their  cost.  Reasonably 
powerful  central  processors  can  currently  be  purchased  ^or 
less  than  twenty  dollars/  resulting  in  the  appearance  of 
many  new  applications.  Along  with  the  low  cost  of  the  cen- 
tral processor  have  come  low  cost  peripheral  oevices  that 
are  well  suited  to  the  speeds  ano  capabilities  of  the  micro- 
computers. In  the  case  of  traditional  users  of  computers/ 
the  low  cost  of  microcomputer  hardware  has  led  to  new  uses 
ano  to  distributed  processor  networks.  Changes  in  the  cost 
and  capabilities  of  microcomputers  have  been  dramatic  over 
the  last  several  years/  with  more  and  more  capabilities  be- 
ing offered  at  lower  prices. 


2.  Software 


Software  has  lagged  far  oehind  the  aevelopwents  in 
hardware  for  m i c r oc omou t e r s . Most  of  the  currently  avail- 
able systems  do  not  support  high  level  languages  at  all*  ano 
where  supported*  the  languages  are  often  systems  languages 
rather  than  applications  oriented  languages.  One  of  the 
restrictions  imposed  by  many  high  level  languages  has  been 
the  requirement  for  c ross-comp i 1 i nq  on  a more  powerful 
machine  I7).  In  addition*  some  of  the  resident  compilers 
require  large  amounts  of  memory.  Recent  woric  on  versions  of 
BASIC  however*  has  led  to  quality  resident  compilers  for 
scientific  tyoe  calculations  to). 

To  allow  the  use  of  m i c roorocessor  systems  in  many 
of  the  proposed  aop 1 i ca t i cns * languages  need  to  be  developed 
that  will  run  on  microcomputers  without  placing  unreasonable 
demands  on  their  capabilities  and  size.  If  the  oevelopments 
in  hardware  continue  at  their  present  rate*  software  will 
almost  certainly  continue  to  1 aa  behind.  However*  current 
compiler  construction  techniques  do  seem  to  make  it  possible 
to  provide  the  required  languages*  at  least  on  the  current 


I 0 


types  of  hardware  I3i 


0.  OHJtClIVtS  OF  MTCRCl-CObOL 


The  major  objective  of  this  oroject  was  to  imotement 
HYPU-tObUL  on  an  80tt0  m i c rocomou t e r-based  system.  As  steps 
toward  that  objective»  the  foMowinq  underlying  goals  were 
established;  first#  oefine  HYPO-COBOL  as  an  LALKfi)  grammar 
112J,  Second#  construct  a compiler  cased  'n  a table-driven 
parser  for  that  LALR(l)  grammar.  Third#  imolement  an  inter- 
preter to  run  the  intermediate  language  instructions  pro- 
duced Dv  the  compiler. 

»ihile  It  was  recognized  that  there  would  be  difficulties 
in  displaying  the  complete  capabilities  of  the  nYPO-CuKuL 
language  on  the  eauipment  currently  availaple  at  the  Naval 
Postgraduate  School#  it  was  considered  feasible  to  implement 
a major  portion  of  the  subset  with  the  current  equipment  and 
software. 

One  of  the  justifications  for  this  project  was  the 
current  standard  policy  of  the  Department  of  Defense  to  re- 
quire all  comouters  used  in  nor-factical  environments  to  be 
capable  of  executing  COBOL.  In  the  case  of  the  uepartment 
of  the  Navy#  the  stanoaro  that  would  neeo  to  be  met  for  a 
m i c rocompu t e r-based  system  is  HYPO-COBUL. 

Finally#  it  should  be  noted  that  there  was  no  attempt  to 
add  to  the  HYPO-COBOL  aefinition.  One  area  of  investigation 
was  to  test  the  feasibility  of  the  subset.  In  defining  tne 
grammar#  areas  were  found  where  aaditions  could  have  been 
made#  ang  future  users  rav  require  enhancea  capabilities  to 


make  the  languaae  fit  their  requirements 


Inrti cat i ons  have 


J 


been  made/  in  the  following  sections/  of  places  where 

changes  seemed  appropriate. 

i 
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II.  MICiRO-COROL  machine 
A.  CitNtRAL  DESCRIPTION 

The  following  sections  describe  the  MICRU-COBOL  oseudo- 
machine  architecture  in  terms  of  allocatea  memory  areas  and 
pseudo-machine  operations.  The  pseuao  machine  was  the  tar- 
get machine  for  the  compiler  and  was  implemented  through  a 
programmed  interpretation.  The  MJCRO-CObOL  machine  has  been 
given  first#  since  all  other  'System  components  can  ce 
descrioed  in  terms  of  the  target  machine. 

There  were  several  ways  to  design  the  pseudo  machine. 
The  parser  used  produces  operations  in  the  order  convenient 
for  a stack  machine#  and  other  applications  have  used  a 
simulation  of  a stack  machine  to  interpret  the  output  of  tne 
compiler  Ibl . The  operations  required  for  hyPU-COBOL  did 
not  require  the  use  of  a stack  but  could  oe  designed  as  re- 
latively indepenoent  operations.  it  would  oe  possible  to 
produce  an  interpreter  that  consisted  of  a set  of 
subroutines  which  would  be  called  directly  by  machine  level 
operations  on  the  8060.  The  emitted  code  would  then  consist 
of  instructions  to  load  parameters  ana  calls  to  the 
subroutines.  This  second  idea  was  rejected  due  to  the  lim- 
ited time  available  for  the  production  of  tne  project  and 
because  the  code  generation  would  then  oe  very  closely  tied 
to  the  exact  implementation  of  the  interpreter.  It  was  de- 

1 i 
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cided  to  produce  output  coae  for  a pseuao  machine  that 
would  be  defined  to  have  all  of  the  needed  operations  as 
basic  instructions.  Ihe  machine  ooerators  chosen  contain  all 
of  the  information  required  to  perform  one  complete  action 
required  by  the  language. 

The  machine  contains  multiple  parameter  operators  and  a 
program  counter  that  addresses  the  next  instruction  to  be 
executed.  Three  reaisters  are  provided  which  hold  eighteen 
digit  numoers  used  for  arithmetic  operations  along  with  a 
suDSCript  stack  that  is  used  to  comoute  subscript  locations 
along  with  a set  of  flags  that  are  used  to  oass  branchinq 
information  from  one  instruction  to  another. 

Addresses  in  the  machine  are  representea  by  lb  bit 
values.  Any  memory  address  greater  than  20  hexadecimal  is 
valid.  Addresses  less  than  20  hexadecimal  will  be  inter- 
preted as  having  scecial  significance.  For  example^  au- 
oresses  o'^e  through  eight  are  reserved  for  subscriot  stack 
references.  All  other  addresses  in  the  machine  are  absolute 
addresses . 

(he  arithmetic  registers  allow  for  the  manipulation  of 
signed  numbers  of  uc  to  eighteen  decimal  digits  in  length. 
Included  in  their  representation  is  a sign  indicat’or  and  the 
position  of  the  assumed  decimal  point  for  the  currently 
loaded  number.  cjhile  the  form  of  the  representation  is  not 
specified  in  the  HyP0-Cfl80L  document#  it  is  necessary  that 


there  be  no  loss  of  precision  for  operations  on  numbers  hav 


iny  a full  eighteen  aigits  of  significance. 

There  are  two  major  types  of  numbers  defined  in  the 
machine.  The  first  is  numbers  in  the  DISPLAY  mode.  These 
numbers  are  represented  in  memory  in  the  standard  informa- 
tion exchange  code  for  the  peripherals.  For  m i c rocomrut er s » 
the  common  representation  would  be  in  ASCII  characters, 
these  numbers  may  have  separate  signs  indicated  by  "t”  and 

or  may  have  a "zone"  indicator  added/  denoting  a nega- 
tive  sign.  Packed  decimal  format  is  also  available  with 
numbers  carried  as  seouential  digit  pairs  stored  in  memory. 
The  sign  is  indicated  in  the  right -most  position. 

The  following  flags  exist  in  the  machine  and  can  oe 
checked  by  the  instructions  for  a true  or  false  value: 
BRANCH  flag  --  indicates  if  a branch  is  to  be  taxen;  OF 
RECORD  flag  --  indicates  that  an  eno  of  input  condition  has 
been  reached  when  an  attempt  was  made  to  read  input;  OVER- 
FLOW flag  --  indicates  the  loss  of  information  from  a regis- 
ter due  to  a number  exceeding  the  available  size;  IIjVALID 
flag  --  indicates  an  invalid  action  in  writing  to  a direct 
access  storage  device. 

The  following  resources  are  reguired  for  a minimal  im- 
plementation of  this  machine;  a system  input  device  capable 
of  receiving  low  volume  input/  a system  outouf  device  capa- 
ble of  displaying  low  volume  output/  and  a direct  access 
storage  device  capable  of  storing/  reading/  and  writing 


files  and  programs 


B 


MtMORY  ORGANIZATION 


Memory  ’s  divided  into  three  major  sections:  (Ij  the 

data  areas  defined  by  the  DATA  DIVISION  statements#  (^)  the 
code  area#  (3)  and  the  constants  area.  No  particular  order 
of  these  sections  is  reouired.  The  first  two  areas  assume 
the  ability  to  both  read  and  write#  but  the  third  only  re- 
quires the  ability  to  be  read. 

The  data  area  contains  variables  defined  by  the  uAlA 
DIVISION  statements#  constants  set  in  the  WORKING  STORAGE 
SECIION#  and  all  file  control  blocks  and  buffers.  These 
elements  will  be  manipulated  by  the  machine  in  accordance 
with  the  code  instructions. 

c.  machine  operations 

1 . Format 

All  of  the  machine  operations  consist  of  an  opera- 
tion number  followed  by  a list  of  parameters.  The  sections 
that  follow  descrioe  the  various  instructions#  list  the  re- 
quired parameters#  and  describe  the  actions  tanen  by  the 
machine  in  executinq  each  instruction.  As  each  instruction 
is  fetched  from  memory#  the  oroqram  counter  automatically 
increments  oy  one. 

2.  Arithmetic  operations 

There  are  five  arithmetic  instructions  which  act 


only  on  the  registers 


In  all  cases#  the  result  is  placed 


in  register  two.  Qoerations  are  allowed  to  destroy  the  in- 
put values  during  the  process  of  creation  a result.  There- 
fore# a number  loaded  into  a register  will  not  be  available 
for  a subseauent  operation. 


ADD:  (addition).  Sum  the  contents  of  register  zero 


and  register  one. 


Parameters:  no  parameters  are  recuired. 


SUB:  (subtract).  Subtract  register*  one  from  register 

zero. 

Parameters:  no  parameters  are  reauired. 

MUL:  (multiply).  Multioly  register  zero  by  register 

one . 

Parameters:  no  parameters  are  reauired. 

OlV:  (divide).  Divide  register  zero  ov  the  value  in 

register  one.  The  remainder  is  not  retained. 

Parameters:  no  parameters  are  reauired 

KIMD:  (round).  Pound  register  two  to  the  last  signi- 

ficant decimal  olace. 

Parameters:  no  parameters  are  reauired. 


i.  Branching 

Mil  of  the  branching  instructions  are  accomplished 
Dy  changino  the  value  of  the  proaram  counter.  Some  are  ao- 
solute  branches  and  some  test  for  condition  flags  that  are 
set  by  the  other  instructions. 


Branches  may  also  test  the 


Several  instructions  use  the  same  conditional 


Oranching  conventions.  Firstf  the  branch  flag  is  checked 
for  its  current  setting.  If  it  is  truer  then  a branch  is 
made  by  changing  the  program  counter  to  the  value  of  the 
<branch  address>.  Tne  branch  flag  is  then  set  to  false.  if 
the  flag  was  originally  falser  the  program  counter  is  incre- 
mented to  the  next  seouential  instruction. 

8WN;  (branch  to  an  address).  Load  the  program 
counter  with  the  <branch  address>. 

Parameters:  <branch  aodress> 

The  next  three  instructions  share  a common  format. 
The  memory  field  addressed  by  the  <memory  address^  is 
checked  for  the  <address  length>r  ana  if  all  the  characters 


match  the  test  concitionr  then  the  branch  flag  is  comple- 
mented. A conditional  branch  is  taken  after  the  test. 
Parameters:  <memory  address>  <address  length>  <branch  ao- 

dress> 


i 

I 

I 


CAL:  (compare  alphabetic).  Compare  a memory  field 

for  alphabetic  characters. 

CNS:  (compare  numeric  signed).  Compare  a fielo  for 

numeric  characters  allowing  for  a sign  character. 


CNU:  (compare  numeric  unsigned).  Compare  a field  for 

numeric  characters  only. 

1« 
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dress.  If  it  is  falser  the  program  counter  is  incremented 
by  two. 

Parameters;  <branch  address> 

PtH;  (perform).  The  code  address  oointed  to  by  the 
<change  address>  is  loaded  with  the  value  of  the  <return  ao- 
dress>.  Ihe  program  counter  is  then  set  to  the  <branch  aa- 
dress> . 

Parameters:  <branch  address>  <chanqe  address>  <return  aa- 

dress> 


RtT:  (return).  If  the  value  of  the  <branch  adoress> 

is  not  zero#  then  the  program  counter  is  set  to  its  value# 
and  the  <branch  address>  is  set  to  zero.  If  the  <pranch  ao- 
dress>  is  zero#  the  proaram  counter  is  incremented  by  two. 
Parameters:  <oranch  address> 

Rtu:  (register  eaual).  This  instruction  checks  for  a 

zero  value  in  reoister  two.  If  it  is  zero»  the  branch  flag 
is  complemented.  A conditional  branch  is  taken. 

Parameters:  <pranch  address> 

RGT;  (register  greater  than).  Register  two  is 
checked  for  a negative  sign.  If  present#  the  oranch  flag  is 
complemented.  A conditional  branch  is  taken. 

Parameters:  <oranch  address> 

RLl;  (reoister  less  fnan).  Register  two  is  checked 
for  a positive  sign#  and  if  present#  the  branch  flag  is  com- 


plemented 


A conditional  branch  is  ta^en 


Parameters:  <branch  address> 

StH:  (branch  on  size  error).  If  the  overflow  flag  is 

true/  then  the  program  counter  is  set  to  the  branch  adaress» 
and  the  overflow  flag  is  set  to  false.  If  it  is  falser  then 
the  program  counter  is  incremented  by  two. 

Parameters:  <branch  address> 

fhe  next  three  instructions  all  perform  the  same 
function  and  have  the  same  aeneral  format.  They  compare  two 
strings  ana  perform  a conditional  branch.  If  the  test  con- 
dition is  truer  the  branch  flag  is  complemented  prior  to 
taking  the  conditional  branch. 

Parameters:  <string  aadr-l>  <strina  aadr-2>  <lenath  - aa- 

aress>  <branch  address> 

iifcQ;  (strings  egualj.  Compare  two  string  for  egual 
charac  t ers . 

SliT:  (string  greater  than).  Compare  strino  one  for 

greater  than  string  two. 

SL T ; (string  less  than).  Compare  string  one  for  less 
than  string  two. 

Moves 

The  machine  supports  a variety  of  move  operations 
for  various  formats  and  types  of  data.  It  does  not  sunporr 
direct  moves  of  numeric  data  from  one  memory  field  to  anoth- 
er. Instead^  all  of  the  numeric  moves  go  through  the  regis- 
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tens.  fhis  greatly  reduced  the  number  of  instructions  since 
all  of  the  numeric  types  need  to  be  suoported  by  moves  into 
and  out  of  the  registers  for  arithmetic  operations. 

The  next  seven  instructions  all  perform  the  same 
function.  They  load  a register  with  a numeric  value  and 
differ  only  in  the  type  of  number  that  they  expect  to  see  in 
memory  at  the  <number  address>.  All  seven  cause  the  program 
counter  to  be  incremented  by  five.  Their  common  format  is 
given  below. 

Parameters:  <number  address>  <byte  length>  <byte  decimal 
count>  <byte  register  to  1oad> 

LUO:  (load  a numeric  literal).  Mote  that  the  decimal 

point  indicator  is  not  set  in  this  instruction  format.  Tne 
literal  will  have  an  actual  decimal  point  in  it  if  re- 
qu i red . 

LUl;  (load  a numeric  field). 

Lbi:  (load  a numeric  field  with  an  internal  trailing 

sign). 

LU3:  (load  a numeric  field  with  an  internal  leaaing 

sign). 

LU^:  (load  a numeric  field  with  a separate  leaaing 
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L06:  (load  a packed  numeric  field). 

MtD:  (move  into  a alphanumeric  edited  field).  The 

edit  mask  is  loaded  into  the  <to  address>  to  set  up  the 
move#  and  then  the  <from  address>  information  is  loaded.  The 
program  counter  is  incremented  by  ten. 

Parameters:  <to  aodress>  <from  adaress>  <length  of  move> 

<edit  mask  address>  <edit  mask  length> 

/ 

MNt:  (move  into  a numeric  eaited  field).  First  the 

edit  mask  is  loaded  into  the  receiving  field#  and  then  tne 
information  is  loaded.  Any  decimal  point  alianment  required 
will  be  performed.  if  truncation  of  significant  digits  is  a 
side  effect#  the  overflow  flag  is  not  set.  Ihe  orogram 
counter  is  incrementeo  by  twelve. 

Parameters;  <to  aodress>  <from  address>  <address  length  of 
move>  <edit  mask  address>  <address  mask  length>  <byte  to  de- 
cimal count>  <byte  from  decimal  count> 

MOV;  (mov®  into  an  alphanumeric  field).  The  memory 
field  given  by  the  <to  address>  is  tilled  by  the  from  field 
for  the  <move  length>  and  then  filled  with  blanks  in  the 
following  positions  for  the  <fill  count>. 

Parameters;  <to  address>  <from  address>  <address  move 
length>  <address  fill  count> 

Sli:  (store  immediate  register  two).  The  contents  of 

register  two  are  stored  into  reoister  zero  and  the  decimal 
count  ang  sign  are  inoicators  set. 

Parameters;  none. 

2S 
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The  store  instructions  are  grouped  in  the  same  order 
as  the  load  instructions.  Register  ti^o  is  stored  into 
memory  at  the  indicated  location.  Any  alignment  is  per- 
formed/ and  if  a non-zero  leading  digit  is  truncateo  by  the 
operation/  the  overflow  flag  is  set.  All  five  of  the  store 
instructions  cause  the  orooram  counter  to  be  incrementea  by 
four.  Ihe  format  for  these  instructions  is  as  follows. 
Parameters:  <address  to  store  into>  <byte  length>  <byte  de- 

cimal count  > 

STU;  (store  into  a numeric  field). 

Sll:  (store  into  a numeric  field  with  an  internal 

trailing  s i on ) . 

SI2:  (store  into  a numeric  field  with  an  internal 

leading  sign). 

S13;  (store  into  a numeric  fiela  with  a separate 

trailing  sign). 

314:  (store  into  a numeric  fiela  with  a separate 

leading  sign). 

315:  (store  into  a packed  numeric  field). 

5.  Input-outout 

The  following  instructions  perform  input  and  outout 
operations.  The  recuired  operations  are  specifieo  in  the 
HYPO-CObUL  manual/  but  tne  exact  definitions  of  file  formats 
and  access  methoas  are  not  defined.  Files  in  this  machine 


1 

1 


?4 


k 


are  defined  as  having  the  following  c n a rac t e r i s t i c s : they 

are  either  seauential  or  random,  and,  in  general,  files 

\ 

created  in  one  mode  are  not  required  to  oe  readable  in  tne 
other  mode.  Standard  files  consist  of  fixed  length  records, 
and  variable  length  files  need  not  be  readable  in  a random 
mode.  Further,  there  must  be  some  character  or  charcter 
string  that  delimits  a variable  length  record. 

ACC;  (acceot).  Read  from  the  system  inout  device  into 
memory  at  the  location  given  by  the  <memory  address>.  Tne 
program  counter  is  incremented  by  three. 

Parameters;  <memory  address>  <hyte  length  of  read> 

CCS;  (closed.  Close  the  file  whose  file  control  blocic 
is  addressed  by  the  <fcb  address>.  The  program  counter  is 
incremented  by  two. 

Parameters;  <fcb  address> 

UIS;  (display).  Print  the  contents  of  the  data  field 
pointed  to  by  <memory  address>  on  the  system  output  device 
for  the  indicated  length.  The  orogram  counter  is  increment- 
ed by  three. 

Parameters;  <memory  address>  <byte  length> 

There  are  three  open  instructions  with  the  same  for- 
mat. In  each  case,  the  file  defined  by  the  file  control 
block  referenced  will  be  opened  for  the  mode  indicated.  Tne 
program  counter  is  incremented  by  two. 

Parameters;  <fcb  address> 
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CPN;  (open  a file  for  input).  I 

\ 

OHl;  (open  a file  for  output). 

0P2:  (open  a file  for  both  input  ana  output).  Ihis 
is  only  valid  for  files  on  a random  access  device. 

The  following  file  actions  all  share  the  same  for- 
mat. tach  performs  a file  action  on  the  file  referenced  bv 
the  file  control  block.  The  record  to  be  acted  uoon  is 
given  by  the  <record  aadress>.  The  prooram  counter  is  in- 
c remen t ed  by  s i * . 

Parameters:  <fcb  adaress>  <record  aadress>  <recora  lenath  - 

address> 

OLS;  (delete  a record  from  a sequential  filej.  Pe- 
move  the  record  that  was  just  reaa  from  the  file.  The  file 
is  reouired  to  be  ooen  in  the  input-output  mode. 

KUF : (read  a sequential  file).  Read  the  next  record 

into  the  memory  area. 

aIF:  (write  a record  to  a seauential  file).  Append  a ^ 

new  record  to  the  file. 

RVL:  (read  a variable  length  record). 

AVL:  (write  a variable  length  record).  j 

RwS:  (rewrite  sequential).  The  rewrite  operation 

writes  a record  from  memory  to  the  file»  overlaying  the  last 


a 


record  that  was  read  from  the  device 


The  file  must  be  open 


in  the  inout-output  noode 


The  following  file  actions  require  ranoom  files 
rather  than  sequential  files.  They  all  make  use  of  a random 
file  pointer  which  consists  of  a <relative  address>  ano  a 
<relative  length>.  The  memory  fielo  holds  the  number  to  be 
used  in  disk  operations  or  contains  the  relative  record 
number  of  the  last  disk  action.  The  relative  record  numb*»»- 
is  the  record  count  on  the  file  startinq  with  one.  After 
the  file  action/  the  Program  counter  is  incrementea  cy 
nine. 

Parameters:  <fcb  adoress>  <record  aodress>  ^record  lenqth  - 

address>  <relative  address>  <relative  lenath  - byte>. 

OLW;  (delete  a random  record).  Delete  the  record  aa- 
dressed  by  the  relative  record  number.  

PKR;  (read  ranoom  relative).  Read  a random  record 
relative  to  the  record  number. 

RKS:  (read  rancom  seouential).  Read  the  next  seouen- 

tial  record  from  a random  file.  The  relative  record  number 
of  the  record  read  is  loaded  into  the  memory  reference. 

Rak:  (rewrite  a random  record). 

AHR:  (write  random  relative).  mrite  a record  into 

the  area  indicated  by  the  memory  reference. 

aRS:  (write  ranoom  sequential).  write  the  next 

sequential  record  to  a ranoom  file.  The  relative  record 


number  is  returned 


6.  Special  instructions 

The  remaining  instructions  perform  special  functions 
required  bv  the  machine  that  do  not  relate  to  any  of  tne 
previous  groups. 

NUT:  (neqitive  test).  Negate  the  value  of  the  oranch 

flag. 

Parameters:  no  parameters  are  reauirea. 

LUI:  (load  a code  address  direct).  Load  the  <ccde 

address>  with  the  number  indicated  by  the  <memory  address>. 
Parameters:  <code  adoress>  <memory  address>  <lenqth  - byte> 

SCR:  (calculate  a subscript).  Load  the  subscript 

Stacie  with  the  value  indicated  from  memory.  The  aadr«»ss 
loaded  into  the  stacn  is  the  <initial  address>  plus  an 
offset.  Multiplying  the  <field  lenqth>  by  the  numper  in  tne 
<memory  reference>  gives  the  offset  value. 

Parameters:  ^initial  address>  <field  length>  <memory  refer- 

ence>  <memory  length>  <stacl<  level> 

SID:  (stop  with  display).  Display  the  indicated  in- 

formation and  then  stop. 

Parameters:  <memory  address>  <length  - Dyte> 

SIP:  (stop),  terminate  the  actions  of  the  machine. 

Parameters:  no  parameters  are  required. 


The  following  instructions  are  usea  in  setting  uo 
the  machine  environment  and  cannot  be  used  in  the  normal  ex- 
ecution of  the  machine. 

BST:  (backstuf f J , Resolve  a reference  to  a label. 

Labels  may  be  referenced  prior  to  their  definition^  reauir- 
ing,  a chain  of  resolution  addresses  to  be  maintained  in  the 
code.  The  latest  location  to  be  resolved  is  maintained  in 
the  symbol  table  and  a oointer  at  that  location  indicates 
the  next  previous  change.  ' A ?ero  pointer  indicates  no  orior 
occurrences  of  the  label.  The  code  address  referenced  cy 
<change  address>  is  examined  and  if  it  contains  zero,  it  is 
loaded  with  the  <new  address>.  If  it  is  not  zero,  then  the 
contents  are  saved»  and  the  process  is  reoeated  with  the 
saved  value  as  the  change  address  after  loading  the  <new  ao- 
dress> . 

Parameters:  <change  address>  <new  address> 

INT:  (initialize  memory).  Load  memory  with  the  <in- 

put  strinq>  for  the  given  length  at  the  <memory  address>. 
Parameters;  <memory  address>  <address  length>  <inout 
St  r i ng> 

SLD;  (start  code).  Set  the  initial  value  of  the  pro- 
gram counter. 

Parameters:  <start  address> 

TtR;  (terminate).  Terminate  the  initialization  pro- 
cess and  start  executing  code. 

Parameters;  no  parameters  are  reguired. 


111.  MICRO-CObOL  IMPLt'^ENTAT  ION 

A,  CUMHILER  IMPLEMENTATION 
1.  General  method 

The  LALR  parser-table  construction  programs  used 
here  are  based  on  the  work  of  Knutn  19J . His  work  defines 
two  methods  of  testing  a grammar  to  see  if  it  is  LR(tt).  One 
of  these  metnods  leads  to  the  creation  of  a set  of  taoles 
that  can  be  used  to  drive  the  parse  actions  of  a compiler, 
rthile  difficult  to  implement  in  the  form  given  by  hnuth,  tne 
method  has  been  developed  in  usable  form  for  subsets  of  tne 
grammars  that  are  LR(k).  References  ? and  ? contain  de- 
tailed discussions  of  the  methods  currently  available.  The 
algorithm  used  to  oeveloo  the  tables  for  the  MICRO-CuBuL 
comoiler  was  developed  by  rt.  Lalonde  fl2J. 

The  compiler  was  designed  to  read  the  source 
language  statements  from  a diskette  or  otner  mass  storage 
device^  extract  the  needed  information  for  the  symbol  table, 
and  write  the  output  code  back  onto  the  diskette  all  in  one 
pass  of  the  source  program.  The  grammar  was  initially  de- 
fined for  the  entire  language.  but  the  si^e  constraints 
placed  on  the  implementation  reouirea  smaller  tables.  Tne 
grammar  was  then  defined  in  two  parts  which  run  in  succes- 
sion. I he  major  method  of  oassina  information  from  the 
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first  part  to  the  second  is  Ov  oiacinq  the  information  in  | 

the  symbol  table.  1 

The  output  code  from  tne  compiler  consists  of  the  '■ 

operations  that  have  been  previously  defined.  They  eere  | 

designed  as  an  intermediate  language  that  eoulo  be  executed 
by  the  interpreter  described  in  section  B.  The  vast  differ- 
ences between  the  ooerations  available  for  the  target  com- 
puter and  the  ooerations  necessary  to  supoort  COoOL  maae 
this  approach  easier  than  dOttO  machine  code. 

^ . Cont  ro I f 1 ow  ( 


a 
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Interna)  structures 


The  major  interna)  structure  is  the  svmbo)  tab)e. 
It  Mas  aesiqned  as  a )ist  where  the  e)ements  in  the  )isf  are 
the  descriptions  of  the  various  symbo)s  in  the  program.  As 
new  symbo)s  are  encountered  they  are  added  to  the  ena  of  tne 
)ist.  Symbo)s  a)ready  in  the  )ist  can  be  accessed  through 
the  use  of  a "current  symbo)  pointer."  The  )ocation  of 
items  in  the  )ist  is  determined  by  checl<ing  tne  identifier 
aqainst  a hash  table  that  points  to  the  first  entry  in  tne 
symbo)  tab)e  with  that  hash  code.  A chain  of  collision  ad- 
dresses is  maintained  in  the  symbol  table  wnich  lintts  en- 
tries which  have  the  same  hash  value. 


All  of  the  items  in  the  symbol  table  contain  tne 
following  information:  a collision  field*  a tyoe  field*  the 
length  of  the  identifier*  and  the  address  of  the  item.  If 
an  item  in  the  symbol  table  is  a data  field*  the  following 
information  is  included  in  the  tablet  the  length  of  the 
item*  the  level  of  the  data  field*  an  optional  decimal 
count*  an  optional  multiple  occurrence  count*  and  the  ad- 
dress of  the  edit  field*  if  required.  If  the  item  is  a file 
name  then  the  following  additional  information  is  included; 
the  file  record  length*  the  file  control  block  address*  and 
the  optional  symbol  table  location  of  the  relative  record 
pointer.  If  the  item  is  a label*  then  the  only  additional 
information  is  the  location  of  the  return  instruction  at  the 
end  of  the  paragraph  or  section. 
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In  addition  to  the  symbol  table/  two  stacks  are  used 


for  storing  information:  the  level  stack  and  the  identifier 
stack.  In  both  cases#  they  are  used  to  hold  pointers  to  en- 
tries in  the  symbol  table.  The  identifier  stacn  is  useo  to 
collect  multiple  occurrences  in  such  statements  as  the  GO  TO 
- DEPENDING  statement.  The  level  stack  is  used  to  hold  in- 
formation about  the  various  levels  that  make  up  a record 
desc  r i pt i on . 


The  parser  has  control  of  a set  of  stacks  that  are 
used  in  the  manipulation  of  the  parse  states.  In  adaition 
to  the  state  stack  that  is  renuired  bv  the  parser,  nart  one 
has  a value  stack  and  part  two  has  two  different  value 
stacks  that  operate  in  parallel  with  the  parser  state 
stack.  The  use  of  these  stacks  is  described  below. 

U.  Part  one 


The  first  part  of  the  compiler  is  primarily  con- 
cerned with  building  the  symbol  taole  that  will  oe  used  Dy 
the  second  part.  The  actions  corresponding  to  each  narse 
step  are  explained  in  the  sections  tnat  follow.  In  each 
case,  the  grammar  rule  that  is  being  applied  is  given,  and 
an  explanation  of  what  program  actions  take  place  for  that 
step  has  been  includeo.  In  descrioina  the  actions  taken  for 
each  parse  step  there  has  been  no  attempt  to  describe  how 
the  symbol  table  is  constructed  or  how  the  values  are 
preserved  on  the  stack.  The  intent  of  this  section  is  to 
describe  what  information  needs  to  be  retained  and  at  what 
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point  in  the  parse  it  can  be  determi  nea.  ivhere  no  action  is 
required  for  a given  statenentf  or  where  the  only  action  it, 
to  save  the  contents  of  the  top  of  the  stack;  no  explaina- 
tion  is  given.  Questions  regarding  the  actual  manipulation 
of  information  should  be  resolved  by  consulting  the  pro- 
grams. 

1 <orogram>  <io-div>  <e-div>  <d-oiv>  PROCEDUHF 

Reading  the  word  PROCEDURE  terminates  the  first  part 
of  the  compi 1 er  . ' , 

2 <id-div>  IDENTIFICATION  DIVISION.  PROGRAih-ID . 


<comment>  . <auth>  <date>  <sec> 

<auth>  AUTHOR  . <comment>  . 

! <empty> 

<date>  DATE-wR 1 T FEN  . <comment>  . 

! <empty> 

<sec>  :t=  SECURITY  . ^comment>  . 

I <empty> 

<comment>  ::=  <inout> 

I <comment>  <input> 

<e-div>  ENVIRONMENT  DIVISION  . CONF IGUKA 1 lUN  SECTIUw. 

<sc  r-ob  j > < i -o> 

<src-obj>  ;;=  SOURCE-COMru FER  . <comment>  <debug> 
OBJECT-COMPUTER  . <comment>  . 

<debuq>  ::=  DEBUGGING  MODE 

Set  a scanner  toggle  so  that  debug  lines  wi 
read. 

! <emoty> 

<i-o>  INPUT-OUTPUT  SECTION  . FILE-CONTROL  . 

3a 


< f i 1 e-con t ro 1 - 1 i St > <ic> 
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16  I <emptv> 

17  <f  i I e-cont  Po1 -H  St  > ::=  <f  i 1 e-cont  rol -ent  ry> 

18  I < f i 1 e-con t ro 1 - I i s t > < f i 1 e-con t ro I -en t r y > 

19  <f i ) e-cont ro I -ent ry>  StLECT  <id>  <a t t r i bu t e- 1 i s f > . 

At  this  point  all  of  the  information  about  tne  file 
has  been  collected  ana  the  type  of  the  file  can  oe 
determined.  File  attributes  are  checked  for  compata- 
oility  and  entered  in  the  symbol  table. 

20  <at t r 1 bute-1 i St > <one  attrib> 

21  I <a t t r i bu t e- 1 i s t > <one  attrib> 

22  <one-attrib>  ::=  OfiGANIZAT  ION  <orq-type> 

23  ! ACCESS  <acc-tyoe>  <relative> 

29  5 ASSIGN  <input> 

A file  conrol  bloCK  is  built  for  the  file  using  an  i:^T 
operator . 

25  <orq-tyoe>  ::=  SEQUENTIAL  

No  information  needs  to  be  stored  since  the  default 
file  organization  is  sequential. 

26  I RELATIVE 

The  relative  attribute  is  saved  for  production  19. 

27  <acc-tyoe>  Jl=  SEQUENTIAL 

This  is  the  default. 

28  ! RANDOM 

The  random  access  mode  needs  to  be  saved  tor  produc- 

tion 19. 

29  <relative>  RELATIVE  <id> 

The  pointer  to  the  identifier  will  be  retained  by  the 

- - I r innia 
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current  symbol  pointer#  so  this  production  only  saves 
a f I aa  on  the  stack  indicating  that  the  production  did 
occur. 

30  ! <empty> 

31  <ic>  a-  I-O-CONTROL  . <same-list> 

32  I <empty> 

33  <same-list>  ::=  <same-e 1 ement > 

3^  I <same-list>  < same-e 1 emen t > 

35  <same“e I ement > SAME  <id"Strina>  . 

36  <id-strino>  ::=  <id> 

37  { <id*strinq>  <id> 

38  <d-div>  DATA  DIVISION  . < f i I e-sec  t i on>  <work>  <lir«<> 

3R  < f i 1 e-sec t i on>  ;;=  FILE  SECTION  . <Tile-list> 

Actions  will  differ  in  production  6a  depenoino  uoon 
whether  this  production  has  been  completed.  A t I ag 
needs  to  be  set  to  indicate  completion  of  the  file 
sec  t i on . 

aO  ! <empty> 

The  flag#  indicated  in  production  3R#  is  set. 

al  <file-list>  ;;=  <f i I e-el ement> 

a£  !<file-list><file-element> 

45  <files>  FD  <iO>  < f i 1 e-cont ro I > . < r eco rd-desc r i p t i on> 

This  statement  indicates  the  end  of  a record  descrip- 
tion# and  the  length  of  the  record  and  its  address  can 
now  be  loaded  into  the  symbol  table  for  the  file 
name . 

44  < f i 1 e-cont ro I > ;;=  <file-list> 

45  ! <empty> 
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46  <file*list>  JS=  < f i 1 e~e  1 e^ren  t > 

47  I <file-Hst>  < f il  e-e  1 emen  t > 

48  < f i ) e-e 1 emen t > BLOCK  <jnteger>  PtCuRDS  , 

49  f RECORD  <rec-count>  ^ 

The  record  length  can  be  saved  for  con'oariscn  with  the 
calculated  length  from  the  nicture  clauses. 

50  ! LABEL  RECORDS  STANDARD 

51  I LABEL  RECORDS  OMITTED 

5?  ' VALUE  OF  <i3“strinq> 

53  <rec-count>  :;=  <integer>  i 

1 

54  J <inteaer>  TO  <integer>  ! 

The  TO  oution  is  the  only  indication  that  the  f i I 

will  oe  variable  length.  The  maximum  length  must  oe 

■ 

savea* 

55  <work>  :;s  /HORK I NG-ST  OR  AOE  SECTION  , < r ec  o r d”desc  r i o t i on  > 

56  ! <emDty>  I 

57  <link>  :;s  LINKAGE  SECTION  . < record*desc r i ct i on> 

58  ! <emoty> 

59  < rec or d-desc r i p t i on>  ::=  < I eve  I -ent ny> 

00  ! < r ec or d-desc r i o t i on > < 1 e ve 1 -en t r y > 

01  < ’ e ve I -ent ry > :;=  <integer>  <oata-id>  <redefines> 

<data”type>  . 

The  level  entry  needs  to  be  loaded  into  the  level 
stack.  The  level  stack  is  used  to  keep  track  of  the 
nesting  of  field  definitions  in  a record.  At  this 
time  there  may  be  no  information  about  the  length  of 
the  item  being  defined^  ana  its  attributes  may  oepeng 
entirely  upon  its  constituent  fields.  It  there  is  a 
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pending  literal;  the  stack  level  to  which  it  applies 
is  saved. 

62  <data-id>  <id> 

63  } FILLER 

An  entry  is  built  in  the  symool  table  to  record  infor- 
mation about  this  record  field.  It  cannot  be  used  ex- 
plicitly in  a program  because  it  has  no  name,  but  its 
attributes  will  need  to  be  stored  as  part  of  the  total 
record. 

6^  <redefines>  REC/FFIi'vFS  <id> 

The  reaefines  option  gives  new  attributes  to  a previ- 
ously defined  record  area.  Ihe  symbol  table  Pointer 
to  the  area  being  redefineo  is  saved  so  that  informa- 
tion can  be  transferea  from  one  entry  to  the  other. 
In  addition  to  the  information  saved  relative  to  tne 
r eae f i n i t i on » it  is  necessary  to  check  to  see  if  the 
current  level  number  is  less  than  or  equal  to  the  lev- 
el recorded  on  the  top  of  the  level  stacx.  If  this  is 


true; 

then  all  i 

nf ormat ion  for 

the  item  on 

the 

t OD 

o f 

the 

stack  has 

been  saved 

ana  the  stacx  can 

be 

re- 

duced 

• 

1 <emoty> 

As  in 

produc  t i on 

64;  the  stack 

is  checked 

to 

see 

1 f 

the 

current  level  number  indicates  a reouction 

o f 

tne 

level 

stack.  In 

addition;  special  action 

needs 

t o 

be 

t aicen 

if  the  new  level  is  01 

. If  an  01 

level 

1 s 

en  - 

countereo  at  this  production  prior  to  production  3V  or 
40  (the  end  of  the  file  area);  it  is  an  imolied  rede- 


i 
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finition  of  tKe  previous  01  level.  In  the  workina 
storage  section#  it  indicates  the  start  of  a new 
record. 


t 

66  <data-type>  ::=  <prop-list> 

67  i <empty> 

68  <prop-list>  ::=  <dat a-e 1 ement > 

o9  i <prop”list>  <da t a-e 1 emen t > 

70  <da t a-e 1 emen t > PIC  <input> 

The  <inout>  at  this  point  is  the  character  string  that 
defines  the  record  field.  It  is  analyzed  and  tne  ex- 
t -acted  information  is  stored  in  the  symool  table. 

n ! USAGE  COVP 

The  field  is  defined  to  be  a oackeo  numeric  field. 

72  ! usage  display 

The  display  format  is  the  default#  and  tnus  no  special 
action  occurs . 

73  ! sign  leading  <seoarate> 

This  oroduction  indicates  the  presence  of  a sign  in  a 
numeric  field.  The  sign  will  be  in  a leaoing  Posi- 
tion. If  the  <seoarate>  indicator  is  true#  then  the 
length  will  be  one  longer  than  the  oicture  clause#  and 
the  type  will  be  changed. 

74  ! SIGN  TRAILING  <separate> 

Ihe  same  information  reguired  by  oroduction  73  must  be 
recorded#  but  in  this  case  the  sign  is  trailing  rather 
than  1 eaa i ng . 

75  ! OCCURS  <inteoer> 

, The  type  must  be  set  to  indicate  multiple  occurrences# 
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ana  the  number  of  occurrences  savea  tor  comouting  the 
space  defined  bv  this  fiela. 


76  ' *,  SYNC  <direction> 

Svncronization  witn  a natural  bounaarv  is  not  required 
by  this  machine. 

77  ! VALUE  <literal> 

The  field  being  defined  will  be  assigned  an  initial 
value  determined  by  the  value  of  the  literal  through 
the  use  of  an  iM  operator.  This  is  only  valid  in  the 
rtOWKlNli-STURAGE  SECTION. 

78  <direction>  LEFT 

79  ; kIGHT 

80  ! <empt  v> 

81  <s€Parate>  SEPARATE 

The  separate  sign  indicator  is  set  on. 

8?  ! <eiTpty> 

83  <literal>  <input> 

The  input  strino  is  checked  to  see  if  it  is  a valid 
numeric  literals  and  if  valid»  it  is  stored  to  be  used 
in  a value  assignment. 

8U  1 <H  t> 

This  literal  is  a guoted  string. 

65  ! ZERO 

As  is  the  case  of  all  literals*  the  fact  that  there  is 
a pending  literal  needs  to  be  saved.  in  this  case  and 
the  three  following  cases*  an  indicator  of  which 
literal  constant  is  being  saved  is  all  that  is  re- 
guired.  The  literal  value  can  be  r ec ons t r uc t ed 


The  input  string  is  the  name  of  an  identifier  and  is 


5 


checked  aginst  the  symbol  table.  If  it  is  in  the  sym- 
bol table»  then  a pointer  to  the  entry  is  saved.  If 
it  is  not  in  the  symbol  table#  then  an  entry  is  added 
ana  the  address  of  that  entry  is  saved. 

Part  two 

The  second  part  includes  all  of  the  PROCEDURE  DIVI- 


SION# and  is  the  part  where  code  Generation  takes  place.  As 


in  the  case  of  the  first  oart#  there  was  no  intent  to  shew 
how  various  pieces  of  information  were  retrieved  out  only 
what  information  was  used  in  producing  the  output  code. 

1 <o-div>  ;;=  PROCEDURE  DIVISION  <using>  . 

<proc-Dody>  ENO  . 

This  production  indicates  termination  of  the  comoila- 
I tion.  If  the  program  has  sections#  then  it  will  ce 

I necessary  to  terminate  the  last  section  with  a HEl  0 

instruction.  The  code  will  be  ended  by  the  output  of 
a TER  ooer at i on . 

2 <usina>  I!=  USING  <id-strino> 


i <empty> 


<ia-string>  ;;=  <ia> 

fhe  identifier  stack  is  cleared  and  the  sytrool  table 
address  of  the  identifier  is  loaded  into  the  first 
stack  location. 

5 I <id-string>  <id> 

The  identifier  stack  is  incremented  and  the  symbol 
table  pointer  stacked. 

<oroc”body>  ::=  <oaragraph> 

{ <proc”body>  <paraoraph> 

8 <paragraph>  ::=  <io>  . <sen t enc e- 1 i s t > 

The  starting  ano  ending  address  of  the  paragrapn  are 
entered  into  the  Symbol  taole.  A return  is  emitted  as 
the  last  instruction  in  the  paragraph  (RET  01.  v;hen 
the  label  is  resolvedf  it  may  be  necessary  to  prcauce 
a titJT  operation  to  resolve  previous  references  to  the 
I abe  I . 

! <id>  SECTION  . 

Ihe  starting  address  for  the  section  is  saved.  if  it 
is  not  the  first  section,  then  the  previous  section 
ending  address  is  loaded  and  a return  (RET  01  is  out- 
put. As  in  production  8,  a BST  may  be  produced. 
<sentence- 1 i St > ::=  <sentence> 

1 <sen t ence- 1 i s t > <sentence>  . 
<sentence>  ::=  <imperative> 

I <conditional> 

I ENTER  <id>  <opt-id> 

This  construct  is  not  implemented.  An  F.NTtR  allots 


statements  from  another  language  to  inserted  in  the 
source  code. 

15  <imperative>  ::=  ACCfcPT  <subid> 

ACC  <address>  <length> 

16  !<arithmetic> 

17  CALL  <1it>  <uoinq> 

This  is  not  implemented. 

18  ! CLOSE  <id> 

CCS  <file  control  block  adOress> 

19  ! <f i I e-act> 

20  ! DISPLAY  <lit/io>  <opt”1it/io> 

The  display  ooerator  is  produced  for  the  first  literal 
or  identifier  (DIS  <address>  <lenath>).  If  the  second 
value  existSf  the  same  code  is  also  produced  for  it. 

21  !ExIT<program-ia> 

RtT  0 

22  ! GO  < i d> 

BKN  <address> 

23  I GO  <id-string>  DEPENDING  <io> 

GUP  is  outputf  followed  bv  a numoer  ot  parameters; 
<the  number  of  entries  in  the  identifier  stack>  <tne 
length  of  the  depending  ioentifier>  <the  address  of 
the  depending  identifier>  <the  aodress  of  each  iaen- 
tifier  in  the  stact<>. 

29  1 vuvt  <lit-id>  To  <subid> 

The  types  of  the  two  fields  determinv®  the  move  that  is 
generated.  Numeric  moves  go  through  register  t»c  us- 

9A 


inq  a load  and  a store 


Non-numeric  moves  derenij  uccn 


the  result  field  and  may  be  either  MOV,  MtD  or  MNt. 
Since  all  of  these  instructions  have  long  oarameter 
lists,  they  have  not  been  listed  in  detail. 

25  ' OPEN  <t ype-ac t i on>  <ia> 

This  produces  either  OPN,  OPl,  or  0P2  deoenaino  uoon 
the  <t vpe-act i on> . Each  of  these  is  followea  Cv  a 
file  control  block  address. 

26  I PERFORM  <id>  <thru>  <finish> 

The  PER  operation  is  generated  followed  by  tne  <oranc^' 
address>  <tne  address  of  the  return  statement  to  be 
set>  and  <the  next  instruction  aoaress>. 

27  ! <read-id> 

20  ! STOP  <terminate> 

If  there  is  a terminate  message,  then  SPO  ts  produced 
followed  by  <messaoe  adaress>  <messaae  length>.  Utn- 
erwise  STP  is  emitted. 

2R  <c and i t i ona 5 > ::=  <arithmetic>  <size-error>  <imoerative> 

A BST  operator  is  output  to  complete  the  branch  around 
the  imperative  from  production  o5. 

30  i <file-act>  <invalid>  <imperative> 

A BST  operator  is  output  to  complete  the  branch  from 
produc  t i on  bu , 

31  ; IF  <condition>  <action>  ELSE  <imperative> 
fwo  bST  operators  are  required.  The  first  fills  in 
the  branch  to  the  ELSE  action.  Ihe  second  completes 
the  branch  around  the  < i mperat i vo>  . 

32  1 <read”id>  <special>  <imperative> 

A BST  is  produced  to  complete  the  branch  around  the 


< i moerat i ve> 


33  < A r i t hmff t i c > I!=  ADD  <l/irt>  <oot-1/ia>  TO  <subirt>  <round> 

The  existence  of  muitiple  load  and  store  instructions 
make  it  difficult  to  indicate  exactly  what  code  will 
be  generated  for  any  of  the  arithmetic  i nst rue t i ons  . 
The  type  of  load  and  store  will  aepend  on  the  nature 
of  the  numoer  involved^  and  in  each  case  the  standard 
parameters  will  be  produced.  This  parse  step  will  in- 
volve the  following  actions:  first,  a load  will  be  em- 
itted for  the  first  number  into  reqster  zero.  if 
there  is  a secona  number,  then  a load  into  register 
one  will  oe  produced  for  it,  followed  by  an  AUT  and  a 
SlI.  fiext  a load  into  reoister  one  will  be  generated 
for  the  result  numoer.  Then  an  aOD  instruction  will 
be  emitted.  Finally,  if  the  round  indicator  is  set,  a 
KNO  operator  will  be  oroduced  prior  to  the  store. 

! DIVIDE,  <l/fid>  INTO  <subid>  <rouno> 

The  first  number  is  loaded  into  register  zero.  The 
second  otjerano  is  loadea  into  register  one.  4 njv 
operator  is  produced,  followed  by  a hMu  operator  prion 
to  the  store,  if  required. 

35  • MULTIHLi  <l/id>  B T <subid>  <roung> 

The  multiply  is  the  same  as  the  divide  except  that  a 
MUL  i s oroduced . 

36  ! SUi^TPACT  <l/id>  <ODt-l/id>  FPuM 

<suoid>  <round> 

Subtaction  generates  the  same  cooe  as  the  AuD  except 
that  a Sufi  is  oroduced  in  place  of  the  last  ADu. 


DELETE  <id> 


37  <t 1 I e-ac t > : : = 

Either  a DLS  or  a DLW  will  be  produced  along  with  tne 
required  parameters. 

38  ! RE^vRITE  <id> 

Either  a RflS  or  a RWR  is  emitted*  followed  by  parame- 
ters. 

i9  5 WRITE  <id>  <special-act> 

There  are  four  possible  write  instructions;  wTF*  wVL* 
wWS  t and  WRR  . 

40  <conoition>  <lit/id>  <not>  <cond-tyoe> 

One  of  the  compare  instructions  is  produced.  Ihey  are 
LAL*  C^IS*  CNU*  RHT*  RLT*  REGl*  SuT*  SLl*  and  SEQ.  Ti«o 
load  instructions  and  a SU6  will  also  be  emitted  if 
one  of  the  register  comparisons  is  reouired. 

41  <cond-type>  t;=  NUMERIC 


: alphabetic 

43 

i <compare> 

44 

<not> 

neg 

NOT 

45 

• 

1 

<empt  y > 

46 

<Compare> 

:;=  GREATER 

47 

1 LESS 

40 

1 equal 

49 

<R0UND> 

= ROUNDED 

50 

! <emptv> 

51 

<terminate>  <1iteral> 

52 

; RUN 

53 

<spec 1 a 1 > 

: ; s < i nval 1 d> 

4o 


5^  ; END 

An  EKO  operator  is  oroduced  followed  by  a zero.  Tne 
zero  acts  as  a filler  in  the  code  and  will  oe  back- 
stuffed  with  a branch  address.  In  this  proauction  and 
several  of  the  followinpr  there  is  a forward  branch  on 
a false  condition  past  an  imperative  action.  For  an 
example  of  the  resolution/  examine  production  3?. 


55 

<opt-i d> 

: : = <sub i d> 

56 

! <empty> 

57 

<ac  t i on> 

; ; = < i mpe  r a t i ve> 

BHN  0 

58 

I NEXT  SENTENCE 

8HN  0 

59 

<thru>  :: 

= THRU  <id> 

60 

1 <empty> 

61 

< f i n i sh> 

:;=  <l/id>  TIMES 

LUl  <address>  <length>  DEC  0 
63  I UNTIL  <condition> 

b3  I <empty> 

6^1  <invalid>  INVALID 

INV  0 

65  <size-error>  SIZE  ERROR 

3ER  0 

66  < Spec i a I -ac t > ;:s  <when>  ADVANCING  <how-many> 

6?  5 <empty> 

69  <when>  9EF0RE 

oR  ! AFTER 

70  <how-many > : : = <inteoer> 


a? 


1 


; PAGE 


r2  <t yoe-ac t i on>  INPUT 

r3  ; OUTPUT 

ra  ; i-o 

^5  <subid>  ;:=  <subscript> 
f 6 I < i d> 

n <integep>  <inDut> 

The  value  of  the  input  string  is  saved  as  an  internal 
number . 

^8  < i o>  : : = < i npu t > 

The  identifier  is  checked  aqinst  the  sympoi  table»  if 
it  is  not  present/  it  is  entereo  as  an  unresolved  la- 
oe  I . 

^9  <l/io>  <input> 


The  input  value 

may 

be 

a numeric  literal. 

I f 

so  / 

1 t 

is  placed  in 

the 

constant  area  with  an 

INT 

operand. 

If  it  is  not  a 

numer  i c 

literal/  then  it 

must 

be 

an 

identifier/  and  it  is  located  in  the  symbol  taole. 
! <SUDSCriPt> 

! ZERO 

<subscript>  <io>  ( <input>  ) 


If  the 

i dent i f i e r 

was  defined 

with 

a USING 

opt 

c 

c 

then 

the 

i nout 

s t r i na 

1 s 

checked 

to  see  if 

i t 

i s a 

number 

or 

an  i dent i f i e r . 

If 

it  is  an 

1 den t i f i 

er  /' 

then 

an  SCR  operator  is  produced. 
<opt-l/id>  :;s  <l/id> 

I <empty> 

<nn- I i t > : ; = < 1 i t > 


Ub 


L Jflll  . 


The  literal  string  is  placed  into 

the  constant  ares 

using  an  INT  operator. 

66 

• 

1 

SPACE 

87 

• 

• 

QUOTE 

68 

< 1 i t e ra 1 > : : 

= <nn- 1 1 t > 

89 

! <input> 

The  input 

value  must  be  a numeric 

literal  to  be  valid 

and  is  loaded  into  the  constant  area  using  an  INT. 

90 

1 ZERO 

91 

<1 i t/id>  ; : = 

<1 /io> 

1 

• 

<nn- 1 i t > 

95 

<opt - 1 1 1 / i d> 

: ; = < 1 i t / i d> 

99 

! <empty> 

95 

<orogram-i d> 

; ; = < i d> 

96 

1 <empt/> 

97 

<read- i d>  ; : 

s READ  < i d> 

There  are  four  read  ooerations:  9UF,  »VL»  RKS,  and 

RKR. 

The  output  code  file  is  the  only  oroauct  of  the  com- 
piler that  is  retained.  All  of  the  needed  information  Kas 
been  extracted  from  the  symbol  table/  and  it  is  not  required 
by  the  interpreter.  Code  eill  be  generated  for  all  proorams 
including  those  that  contain  errors  and  can  oe  examined 
through  the  use  of  the  decode  program.  This  program 
translates  tne  output  file  into  a listing  of  code  operators 
fol lowed  by  the  parameters. 

a9 
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'1 

i 

k 

] 

: 
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b.  INTtRt  ETER  IMPLE^tNI AT  ION 


1.  Oenera)  structure 

The  format  tnat  has  been  presented  for  tne  output 
code  determines  the  General  form  of  the  interpreter.  If  it 
had  not  been  possible  to  transform  the  instructions  from  the 
compiler  into  a set  of  call-like  commands^  it  would  have 
been  necessary  to  implement  a stack  in  the  interpreter.  in 
general*  the  interpreter  contains  a large  "case  statement" 
which  decodes  each  operation  and  either  calls  suoroutines  to 
perform  the  required  actions  or  acts  directly  on  the  run- 
time environment  to  control  the  actions  of  the  interpreter. 
All  communication  between  instructions  is  done  throuon  com- 
mon areas  in  the  program  where  information  can  be  stored  for 
later  use. 

The  design  of  the  interpreter  has  been  modularized 
in  an  attempt  to  allow  easy  transition  to  other  hardware 
configurations  and  operating  systems.  If  desired*  any  sec- 
tion of  the  instructions  could  be  implemented  in  assembly 
language  modules  or  could  be  passed  to  the  operating  sysfem 
for  action.  Tne  entire  system  has  been  coded  in  PL/'^  for 
consistency*  ease  of  development*  and  maximum  portaoilitv 
17J  . 


ti.  Code  modules 

The  following  sections  explain  the  interpreter  pv 
noting  the  specific  manner  in  which  the  machine  instructions 
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defined  in  section  Il-C  have  been  i mo  1 ement ed . The  divi- 
sions are  the  same  as  those  in  section  II-C. 

a.  Arithmetic  instructions 

Since  the  machine  was  oefined  as  having  only  one 
set  of  arithmetic  registers^  it  was  necessary  to  convert  all 
numeric  input  to  one  form.  The  packed  decimal  format  was 
chosen  as  the  format  that  would  be  used  in  the  registers. 
This  conversion  process  slows  down  the  arithmetic  operations 
slightlVf  but  the  reduction  of  the  interpreter  memory  si^e 
was  considered  more  important. 

All  of  the  arithmetic  ooerations  take  place  in  a 
set  of  three  work  areas  or  registers.  Each  of  these  areas 
is  ten  bytes  long  and  can  contain  an  eighteen  digit  number 
with  one  till  character  on  each  end.  The  e*tra  soace  facil- 
itates checking  for  overflow  and  also  matces  rounaing  ooera- 
tions easier.  The  1 anauage  'Ooes  not  support  the  CU'^HUTF 
verb»  so  no  storage  of  intermediate  results  is  reguired  fnom 
one  instruction  to  another. 

All  of  the  arithmetic  instructions  use  tne 
packed  decimal  feature  of  the  as  a basis  for  their  ac- 
tions. Each  of  the  instructions  depends  on  the  basic  opera- 
tion of  addino  two  registers:  subtraction  is  accomplished 
using  nines  complement  arithmetiCf  multiplication  is  uone 
through  a shift  ang  add  algorithm,  and  division  oy  a shift 
and  subtract  method. 
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If  the  amount  of  computations  reouireO  by  a 
given  application  ma<e  it  necessary  to  speed  up  tnese  in- 
structionsr  thev  coulo  be  replaced  by  a package  in  assembly 
language.  Extending  tne  grammar  to  include  the  COWPUTt  verb 
Mould  require  changes  in  the  compiler  to  allow  for  temporary 
locations,  but  it  coula  be  included. 

D . Branch i ng 


Ihe  operation  of  the  interpreter  is  controlled 
by  a program  counter  that  points  to  the  next  operation  to  oe 
performed.  All  branching  is  done  by  changing  the  normal 
sequential  order  of  execution  of  instructions.  In  addition 
to  acting  directly  on  the  program  counter.  branching  in- 
structions use  the  branch  flag  to  aetermine  when  chanaes 
should  be  made.  All  of  the  addresses  that  ooint  to  coae  are 
absolute  addresses  and  can  be  loaded  airectly  into  the  pro- 
gram counter. 


II 


c.  Input-output  operations 


All  of  the  input  and  output  operations  use  tne 
CP/>*  interface  capabilities  15J  . The  program  expects  to  see 
the  files  in  the  form  that  the  CP/M  editor  would  have  creat- 
ed them.  The  physical  records  on  the  disk  are  assumed  to  oe 
126  bytes  in  length  and  have  all  logical  records  ending  with 
a c a r r i age- re t u rn  and  a line-feed  sequence.  There  is  only 
one  type  of  file  under  CP/M,  so  all  restrictions  on  nri^ina 
mooes  of  files  are  removed  for  fixed  length  files.  Files 
created  in  one  program  as  sequential  can  be  accessed  as  ran- 
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dom  files  in  another  crogram 


Variable  length  files  cannot 


be  accessed  in  a ranaom  fashion  because  there 
compute  the  starting  address  of  each  record. 


is  no  way  to 


1 i 

> i 
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where  possible,  the  interface  routines  have  been 
locali^ed  in  the  programs  to  simplify  transportation  to 
another  operating  environment.  Items  relating  to  file  con- 
trol blocks#  disk  record  lengths#  ana  other  system  parame- 
ters have  been  established  as  literals  in  the  programs# 
rather  than  entered  as  numbers#  so  tnat  changes  will  not 
have  to  be  made  throughout  the  code. 
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a.  Moves 


As  noted  previously#  the  macnine  lacks  numeric 
moves.  there  were  two  major  reasons  for  leaving  out  tne 
various  moves  of  numeric  data.  The  first  was  that  tne  aaded 
moves  would  have  reaui red  more  program  space#  ana  the  second 
was  to  simplify  the  coding  ana  checking  of  the  prooram. 
Since  all  of  tne  numeric  tyoes  are  supoorted  with  register 
load  and  store  operations#  any  move  can  be  accomplished  by  a 
1 oad  into  register  two  ana  a store  into  the  result  field. 

A 1 ph a“nume r i c moves  are  supported  as  direct 
moves  from  memory  to  memory.  if  speed  is  reguired  for  a 
numeric  move#  the  fields  concerned  can  be  redefined  as 
alpha-numeric  and  the  memory  move  used.  however#  this  tvpe 
of  move  will  only  work  on  two  numbers  that  have  exactly  the 
same  representation  in  tne  computer. 
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Edited  moves  also  are  from  memor/  to  memory#  but 


i 

! 

i 

1 
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they  involve  several  additional  steps.  Ihe  edit  masic  is 
loaded  into  the  result  field  before  any  characters  are  loaa- 
ed»  and  each  character  in  both  the  receiving  field  and  tne 
sending  field  is  examined  to  determine  what  action  should  oe 
taken  in  addition  to  a move. 

3.  Li  mi  tat i ons 

The  MICRU-CObOL  implementation  did  not  lend  itself 
to  support  of  the  interorogram  Communications  Module.  Tnere 
was  no  capability  in  the  operating  system  to  dump  the  memory 
image  onto  the  disk  or  to  restore  it.  It  would  be  possible 
to  implement  such  a supervisor  call#  or  a one  way  call  could 
perhaps  be  implemented  from  one  program  to  another  without 
the  posibility  of  a return  to  the  calling  proaram.  If  re- 
guired  by  an  application  where  modification  of  tne  operating 
system  was  not  practical#  a small  overlay  program  could  ce 
written  as  an  independent  function  to  be  loaded  with  tne  in- 
terpreter. If  large  systems  are  to  be  run  on  microcomputers 
with  minimal  memory#  some  type  of  interprooram  communica- 
tions would  greatly  facilitate  their  design. 

C.  SOFFrtAHE  TOOLS 

As  in  any  software  development#  one  of  the  things  that 
was  most  important  to  the  success  of  this  project  was  tne 
software  support  for  the  development  effort.  This  system 
was  developed  on  the  360/b7  rather  than  on  the  6080.  Using 
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the  Intel  INfERP  pronram  [81  and  the  CP/M  simulator 
developed  by  at  the  Naval  Postgraduate  School  llll#  it  was 
possible  to  both  compile  programs  on  CP/CMS  ano  run  the  gen- 
erated code.  This  facility  removed  the  necessity  of  tran- 
sporting code  from  the  3o0  to  the  808u  for  testing  and 
greatly  improved  the  productivity. 

Using  the  simulator  did  not  result  in  exactly  the  same 
product  as  would  have  been  developed  it  the  project  had  been 
done  entirely  on  the  8080.  It  was  not  possible  to  Icao  a 
program  on  the  simulator  without  destroying  the  core  image 
currently  in  the  simulator.  In  particular/  the  first  part 
of  the  compiler  could  not  leave  the  symbol  table  for  tne 
second  part  if  the  second  part  was  loaded  oy  a normal  load. 
This  problem  was  resolved  oy  writing  a set  of  small  programs 
that  read  in  the  sequence  of  compiler  comoonents  from  simu- 
lated memory  image  files.  These  oroqrams  nave  been  included 
in  this  document  so  that»  if  future  work  is  oone»  the  simu- 
lator could  be  used  again. 
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IV.  CONCLUSIONS 

This  project  oemonstrates  the  feasibility  of  aoplyinq 
modern  compiler  construction  techniques  to  the  implementa- 
tion of  a language  developed  prior  to  the  work  on  formal 
grammars.  Not  only  is  it  possible  to  construct  a compiler 
for  HYPU-LORUL  using  an  LAlP(1)  parser#  but  the  resulting 
programs  are  highly  compact.  Ihis  allows  the  implementation 
of  the  compiler  on  smaller  machines  and  increases  the  number 
of  target  systems. 

Only  a limited  number  of  proarams  have  been  written  us- 
ing the  comoiler#  ana  no  attempt  has  been  maae  to  train  oth- 
ers in  its  use.  However#  adapting  to  the  subset  snoulo  not 
be  a major  problem  for  a programmer  experienced  in  writing 
stanaard  COBOL,  There  have  been  no  extensive  timing  tests 
of  the  system#  out  current  indications  are  that  both  tne 
comoiler  and  interpreter  operate  at  an  acceptable  rate. 

Ihere  are  several  areas  that  could  be  enhanced  in  this 
implementation  of  HYPO-COBOL.  One  of  these  areas  is  the  in- 
terprogram communication  module.  Uue  to  the  limitations  on 
core  size  usually  imposed  by  m i c rocomout e r systems#  it  would 
be  very  heloful  to  be  able  to  compile  a set  of  programs  that 
could  be  used  together  as  a single  module.  Several  ideas 
were  presented  in  the  body  of  this  paper  which  indicate  how 
the  interprogram  communication  module  could  be  developed. 


Ihe  GIVING  option  for  arithmetic  statements  could  oe 
addea  to  the  grammar.  This  option  would  improve  comptation- 
a1  programs#  and  could  be  supported  without  change  to  the 
existing  interpreter.  As  discussed  oreviously#  the  CuN''HlJTE 
verb  could  be  added  if  desired#  but  it  would  reauire  greater 
changes  both  to  the  grammar  and  to  the  interpreter. 

Programmers  that  have  used  COBOL  in  a standard  imple- 
mentation will  find  the  appearance  of  the  rtURK I uG-S I OW AuE 
SECIIUN  quite  different  due  to  the  lacK  of  the  77  level.  mo 
restriction  was  placea  on  the  size  of  the  level  numbers  oth- 
er than  they  must  be  less  than  255.  This  allows  for  the 
standard  practice  of  level  skipping.  In  aaait'on#  it  would 
not  be  dificult  to  make  the  77  level  perform  in  a normal 
manner.  there  is  no  oifference  in  the  way  that  the  language 
considers  an  01  level  ana  a 77  level  item#  but  the  comoata- 
bility  with  common  usaae  woula  be  yery  helntul  to  a COBOL 
programmer . 

it  is  hoped  that  the  results  of  this  project  are  in  a 
form  that  will  allow  others  to  use  the  compiler  as  a wording 
system.  It  is  recognized  that  many  undiscovered  problems 
will  plague  the  initial  users#  but  every  effort  has  been 
made  to  describe  what  the  system  should  do  ana  to  isolate 
the  functions  within  the  interpreter  to  facilitate  changes. 


APPENDIX  A - MICRO-COQOL  USERS  MANUAL 


This  manual  is  vgpitten  to  explain  the  i mp  1 i ment  at  i on  o'f 
HYPu-COBUL  done  at  the  Naval  Postgraauate  School  for  the  In- 
tel 8080  microcomputer  running  with  CP/M  (Control  Program  / 
Microcomputer) . It  is  not  intended  that  this  manual  take 
the  place  of  the  HYPO-COtiOL  specification  out  that  it  supply 
information  on  the  manner  in  which  this  i mp 1 i mentat i on  was 
aone.  Ihere  is  no  attempt  to  teach  COBOL?  however^  someone 
who  has  a working  knowleage  of  the  language  should  be  able 
to  produce  programs  from  the  information  contained  in  this 
manual  . 

Ihis  manual  contains  a brief  overview  of  the  justifica- 
tion for  HYPO-COBOL  and  the  orqanieation  of  this  implimenta- 
tion.  It  contains  a brief  explanation  of  each  of  tne  con- 
structs availaole  in  the  language  and  shows  samples  of  tneir 
use.  It  explains  the  interactions  between  the  various  carts 
of  the  compiler  and  interpreter  and  how  they  interface  «ith 
the  operating  system.  It  also  includes  a list  of  references 
that  might  be  useful  to  someone  who  wished  to  modify  the 
comp i 1 e r . 

Une  of  the  major  goals  of  this  document  is  to  explain 
how  the  operating  system  used  effects  the  operation  of  tne 
compiler.  It  is  recoqniied  that  if  the  i mp 1 i men t a t i on  is  to 
be  useful  it  will  neeo  to  be  modified  to  run  on  other  confi- 
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gurations  of  haraware  and  on  other  operating  systems, 
it  was  possi'Dle»  the  interaction  with  cne  operating  environ- 
ment was  insulated  frum  the  other  parts  ot  the  program,  but 
in  the  case  oi  the  file  structure  certain  assumptions  naa  to 
be  made  that  could  reouire  modification. 
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i.  HYPO-COROL  OVEPVIPa 


In  order  to  oroviae  a standard  CObOL  subset  tnat  could 
be  impMmented  on  a small  computer  system»  the  Department 
of  the  Navy  has  defined  riYPO-COBDL.  Tnis  definition  is  in- 
tended to  give  the  minimum  subset  of  the  COBOL  language  that 
would  be  useable  as  a working  product.  This  subset  dees  not 
agree  with  the  lowest  level  of  COBOL  as  defined  by  the  CO- 
DASYL  group  and  in  some  cases  includes  only  a portion  of  one 
of  the  COBOL  levels  as  defined  in  the  current  stanaards.  it 
is  defined  to  include  a portion  of  the  NULLLUS  and  both 
SEOOENllAL  I-O  and  RELATIVE  I-O.  A small  portion  of  the  Dt- 
bUG  module  was  included  along  with  some  INTEKPHOGRAM  CO'^MUN- 
ICAliON  instructions. 

Where  possible^  short  i'orms  were  included  rather  than 
long  forms»  and  if  two  forms  existed  for  tne  same  instruc- 
tion, only  one  was  included.  For  example,  the  shortened  PiC 
is  used  rather  than  the  full  word  PILTuRL.  Also  GO  is  not 
followed  by  the  optional  word  TO.  This  does  allow  the  de- 
finition to  be  a Proper  subset  of  the  standard  CQBuL,  out, 
at  the  same  tim*»,  reduces  the  impact  of  the  wordiness  o* 
CObUL  on  a small  system. 

As  an  exception  to  the  general  rule,  PEkFuRn  uNIIl  was 
included  from  level  2 of  the  NUCLEUb  in  order  to  provide  an 
additional  control  structure  to  support  structured  prooram- 
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II.  ORGANIZATION  OF  THE  IMPL IMENT A T 1 ON 

Ihe  compiler  is  aesiqned  to  run  on  an  A08U  system  in  an 
interactive  mode  through  the  use  of  a teletype  or  console. 
It  requires  at  least  l<ik  of  RAM  memory  and  a mass  storage 
aevice  for  reading  and  writing.  The  compiler  is  composed 
of  two  parts  or  passes#  each  of  which  reads  a portion  of  tne 
input  file.  Pass  one  reads  the  input  program  ana  Duilas  tne 
symbol  table.  At  the  end  of  the  DATA  DIVISION#  pass  one  is 
overlayed  oy  pass  two  which  uses  the  symool  taole  to  nroauce 
the  code.  The  output  code  is  written  as  it  is  produced  to 
minimize  the  use  of  internal  storage. 

Ihe  first  program  of  the  interpreter  builds  the  core 
image  of  the  code  ana  performs  such  functions  as  back- 
stuffing  addresses.  This  first  program  loads  the  second 
program  in  and  relenquishes  control  to  the  run  time  environ- 
ment. Ihe  interpreter  is  controlled  by  a large  case  state- 
ment that  decoaes  the  instructions  and  performs  the  required 
actions. 

As  a tool  for  debugging  the  compiler  a seperate  program 
was  created  that  will  read  the  output  coae  and  translate  the 
operations  bac>c  into  the  mnemonics  that  are  usea  in  the 
second  Pass  of  tne  compiler.  Ihis  "decoae”  program  has  been 
included  with  the  other  programs  in  oraer  that  anyone  wish- 
ing to  make  changes  to  the  output  code  or  to  the  actions  of 
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tKe  interpreter  can  use  this  tool 
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MICRO-COBUL  ELEMENTS 


This  section  contains  a description  of  each  element  in 
the  language  and  shows  simple  examples  of  its  use.  The  fol- 
lowing conventions  are  used  in  explaining  the  formats:  tie- 
men  ts  inclosed  in  proi<en  braces  < > are  themselves  comolete 
entities  and  are  describ’ed  elsewhere  in  the  manual.  Ele- 
ments inclosed  in  stacxs  of  braces  ( > are  choices^  one  of 
the  elements  which  is  be  used.  Elements  inclosed  in  bracx- 
ets  I ] are  optional.  All  elements  in  capital  letters  are 
reserved  words  and  must  be  spelled  exactly. 

User  names  are  indicated  as  lower  case.  These  names 
have  been  restricted  to  \d  characters  in  length.  There  are 
no  restrictions  in  the  compiler  on  wnat  characters  may  be  in 
a user  name.  Some  restrictions  do  need  to  be  made  to^assure 
that  they  are  not  taken  as  literal  numpers  wnen  used  in\  tne 
DATA  DIVISION.  For  example  a record  could  be  oetinea  in  tne 
DATA  DIVISION  with  the  name  but  the  command  MOVE 

TO  RtCURUl  would  result  in  the  movement  of  the  literal 
number  not  the  data  stored.  The  HYPU-LObOL  description  re- 
quires that  ea-h  name  start  with  a letter.  Ihis  restriction 
was  not  implemented  because  it  violates  common  programminq 
practices. 

Ihe  input  to  the  compiler  does  not  need  to  conform  to 
standard  COBOL  format.  Freeform  input  will  be  accepted  as 
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the  default  condition.  If  desired/  sequence  numoers  can  oe 
entered  in  the  first  six  positions  of  each  line.  however/  a 
tOQqle  neeas  to  be  set  to  cause  the  combiler  to  ionore  tnose 
I i nes . 


lOENT IFICATIOU  DIViaiuN 


ELtMtNF : 

lUENT IFICATION  DIVISION  Format 


FOkma  I : 


! 

[ 


1 
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lUtNl IF ICAT ION  DIVISION. 

PKUORAM-ID.  <comment>. 
lAUlHOW,  <comment>.l 
IUAIL-inRITTEN.  <comment>.1 
IbELURITt.  <comfrent>.l 

DESLRIP I ION: 

This  division  provides  information  for  prooram  ioen- 
tification  for  the  reader.  The  order  of  the  lines  is 
f i xea . 

examples: 

IDENTIFICATION  DIVISION. 

PKUORAM-IO.  SAMPLE. 

AUTHOR.  A S CRAIG. 


tNViRGNMhNT  DIVISION 


r 


ELtMENT: 

ENVIRONMENT  DIVISION  Format 


FORMAT  : 


ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

source-computer.  <comment>  IDEdUGGING  MODEJ . 
Ub JEC T -COMPU T ER  . <comment>. 

[INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

< f i 1 e-c on t ro 1 -en t r y > ... 

[1-U-CONTROL. 

SAME  file-name-1  file-name-^  t f i 1 e-name-5J 
[file-name-‘T)  (file-name-51.  ] ] 


DESLRIP I ION: 

This  division  determines  the  external  nature  of  a 
file.  In  the  case  of  CP/m  all  of  the  files  used  can 
be  accessed  either  seauentially  or  ranaomly  except  for 
variable  length  files  which  are  senuential  only.  The 
aebugging  mode  is  also  set  by  this  section. 
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<fi le-control-entry> 


tLtMtN  f ; 

I 

<ti le-control”entry> 


FOHMAl  : 

1 . 

StLtCT  f i 1 e-name 

ASSIGN  i mpl  eirentor-name 
lOPGANIZATION  SEQUENTIAL] 
lACCESS  SEQUENTIAL] . 


i. 


SELECT  fi)e~name 

ASSIGN  implementor-name 

urganization  relative 

lACCESS  {SEQUENTIAL  [RELATIVE  da t a-name J } J . 
{RANDOM  RELATIVE  data-name  > 


UEoLRIH I lUN: 

The  f i 1 e-cont ro 1 -ent rv  defines  the  tyoe  of  file  that 
the  proqram  expects  to  see.  There  is  no  difference  on 
the  diskette^  but  the  type  of  reads  and  writes  that 
are  performed  will  differ.  ror  CP/m  the  implementor 
name  needs  to  conform  to  the  normal  specifications. 


Id 


tXAMPL£b; 


StLtCT  CARDS 

ASSIGN  CARO.FIL. 


StLhCT  RANDOM-FILE 
ASSIGN  A. KAN 
URGANIZATION  RELATIVE 
ACCESS  KANOUR  RELATIVE  RANO-FlAG 
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DATA  DIVISIOU 


ELEMtNI : 

DATA  DIVISiON  Format 
FOKMAT  : 

DATA  DIVISION. 

(FILE  SECTION. 

IF D f i 1 e-name 

IbLOCK  integer-1  RECOHOSl 

IRECORO  [integer-^  TO]  integer-i] 

ILAdEL  HECOHD  (STAMDARDll 
{UI^ITTED  > 

IVALUE  OF  i mo  I emen t o r-name- 1 literal-1 

[implementor-name-2  literal-21  ...  J. 

[< record-desc r 1 p t i on-en t ry>]  ...1  ... 

[wokking-storade  section. 

l< record-desc r i ct i on-en t ry> ] ...  1 

[LINKAGE  SECTION. 

[<record-desc r i pt i on-ent ry>]  ...  ) 

DESCRiPliUN: 

This  is  the  section  that  describes  how  the  oata  is 
structured.  There  are  no  major  differences  from  stan- 
dard COdOL  except  for  the  following;  1.  Label 


records  make  no  sense  on  the  diskette  so  no  entry  is 


required.  2.  The  VALUE  OF  clause  likewise  has  no 


If  a record  is  given  two  lengtns  as  in  KF.COHO  12  10 


only  be  accesseo  in  the  sequential  node.  See  the  sec 


FT 


<Comment  > 


ELtMfcNT ; 


<comment  > 


FOHMA I : 


any  string  of  characters 


OESLHIP I lUN: 


A comment  is  a string  of  characters.  it  may  incluce 
anything  other  than  a oeriod  followed  by  a olann  or  a 
reserved  wora»  either  of  which  terminate  the  string. 
Comments  may  be  empty  if  desired#  but  the  terminator 
is  still  reouired  oy  the  orogram. 


eXAMPLhb: 


this  is  a c ommen t 
anotheroneal 1 runtogether 
«080b  16K 


i 1 


I ! 
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<data-descpiption-entry> 


ELEMENT: 

<da t a-desc r I pr i on-en t r v>  Format 
FOKMAI  : 

level-number  {aata-name> 

{FILLED  > 

[KtUEFlNES  data-namej 

IHIL  character-stringi 

[USAGE  [COMP  U 
[DISPLAY  I 

[SIGN  [LEADING!  [SEPARATE! J 
[THAiLlNG! 

lUCCURS  integerl 

[SYNC  [LEFT  J1 
[RIGHT! 

[Value  literal!, 

DESLRIPTIUN: 

This  statement  oescribes  the  soecific  attributes  of 
the  data.  Since  the  6000  is  a byte  machine#  there  was 
no  meaning  to  the  SYNC  clause#  and  thus  it.  has  not 


been  implimenteo 


examples 


01  lard-hecord. 

PART  PIC  X(5). 

02  NEXT-PART  PIC  99V99  USAGE  COMP. 

02  FILLER. 

03  NUMB  PIC  S9(3)V9  SIGN  LEADING  bEPAKATE. 
03  LONG-NUMB  9(15). 

03  STRING  REDEFINES  LONG-NUMB  PIC  X(1b). 


02  ARRAY  PIC  99  OCCURS  100. 


PROCEDURE  DIVlalOM 


ELEMENT; 

PROCEDURE  DIVISION  Format 


FORMAI  ; 

1 . 

Procedure  division  (using  nam<»l  Iname^J  •••  mampSl]  • 

section-name  SECTION. 

loaraqraph-name . <sentence>  l<sentence>  ...  J ...  J ... 

d. 

PROCEDURE  DIVISION  (USING  namel  lname21  ...  Inan-eSJ  ] . 
paragraph-name . <sentence>  (<sentence>  ...J  ... 


DESCRIP  I lUN: 

As  is  inoicateOf  if  the  proaram  is  to  contain  sec- 
tions#  then  the  first  paragraph  must  De  in  a section. 
The  USING  option  is  part  of  the  interprogram  con:muni- 
cation  module  ana  has  not  been  implimented. 
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<sent  enc e> 


k 


ELEMENT : 

<sentence> 

FORMAT  ; 

< 1 mpera t ive”Statement> 
<conai tional "Statement> 
ENTER  verb 


UESLRIP I lUN: 

AIT  sentences  otner  than  ENTER  fall  in  one  of  the  rwo 
main  catigories.  ENTER  is  part  of  the  interprogram 
communication  module. 
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<imoerative-staten'ent> 


LLtMENT : 


<imperative”StateTient> 


FORMA  F ; 


The  following  verbs  are  always  imoeratives: 


ALCtRT 


CALL 


CLOSE 


OISHLAY 


MUVE 


OHEN 


PERFORM 


Slop 


The  following  may  be  imperatives: 

arithmetic  veros  without  the  SIZE  ERROk  statement 


and  OELETEf  rtRITt»  and  REWRITE  without  the  I!>iVALID  option, 


«1 


<condi t ional -statements> 


tLEMtNT ; 

<conditional“Statements> 

FORMAT; 

IF 

RtAO 

arithmetic  veros  with  the  SIZE 
and  DELETE,  rtRITE,  and  REWRITE 


ACCEPT 


ELEMENT: 


ACCEPT 


FORMAr : 


ACCEPT  < i dent i f i er> 


DESCRIP  I ION: 


This  statement  reads  up  to  72  characters  from  the  con- 
sole. The  usage  of  the  item  must  be  DISPLAY. 


examples: 


ACCEPT  IMMAGE 


ACCEPT  NUM(9J 
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AuD 


ELEMENT : 


FORMA  I : 


AUD  {identifier}  [{identifiep-l>J  TO  iaentifier-2 
{literal  > {literal  } 

IROUNUEDI  [SIZE  ERROR  <ifnperative”Statement>l 


DESLRIPI lUN: 


This  instruction  aads  either  one  or  two  numbers  to  a 
third  with  the  result  being  placed  in  the  last  loca- 
tion. 


examples: 


AUD  10  TO  NlJMBl 

Auu  X Y TO  z Rounded. 

AUD  100  TO  NUMBER  SIZE  ERROR  GO  ERROR-LOC 


ELEMtNT 


CALL 


FOHma  I : 

Call  literal  (USiyc  namel  lname2j  ...  InatreSJ  ] 
DESLHIP  I IU.'j: 


CALL  is  not  implimented 


CLObE 


■ ■lip  -gf 


,-j 

hLEMtNT ; : j 

I 

■J 

CLOSE  i 

; ,1 

( ^ 

I 

; J 

FOKMA  f : : i 

‘ 1 

' 'I 

CLOSE  f i \ e-name  i 

■ij 

1 

OESCKIP I iUN: 

I 

Files  must  be  closed  if  thev  have  been  written.  How- 
ever/ the  normal  requirement  to  close  an  input  tile  \ 

prior  to  tne  enc  of  processing  does  not  exist.  j 


examples: 

CLOSE  FILEl 
CLOSE  RANOFILE 


li 


'OELETE 


ELEMENT: 

DELETE 

EORMA  r : 


DELETE  recora“name  (INVALID  < i moe ra t i ve-s t a t emen t >] 
DESLHIP I lUN: 

This  statement  reaui res  the  record  name/  not  the  tile 
name  as  in  the  standard  form  of  the  statement.  Since 
there  is  no  aeletion  mark  in  CP/Mf  this  woulo  normally 
result  in  the  record  still  beina  reaaable.  It  is/ 
therefore»  fillea  with  zeroes  to  indicate  that  it  has 
been  removed. 

EXAMPLES; 

DELETE  RECORDl 


I !■  — — ■P<i*l|'**''nih-«-».  .^11  H„  -■-—  • ' ' ■'  .-  ' ■■-'  ^ / '/  - ',  ;.-r,-  ..p': 


DISPLAY 


tLtMENr: 

display 


FORMA  I ; 


DlSPLAr  {identifier} 
{literal  > 


I { i dent i f i e r- 1 > ] 
{ 1 i teral  > 


DESLRIP I iUN: 


This  disolays  the  contents 
displays  a literal  on  the 
DISPLAY,  The  naximui'  length  of 


of  an  identifier  or 
console.  Usage  »rust  oe 
the  display  is  12  oosi- 


t i ons . 


examples: 

DISPLAY  MESSAGE-l 
DISPLAY  MESSAGE-3  10 


DISPLAY  'THIS  MUST  BE  THE  END' 


UrviDF 


ELEMtNT: 

UIVIDE 

FORMA  I : 

DIVIDE  {identifier}  into  identifier-1  (RUUNDEDJ 
{literal  } 

ISIZE  ERROR  < i npe r a t i ve-s  t a t efren t > 1 
DE30RIP I ION: 

Ihe  result  of  tRe  division  is  stored  in  i aen t i f i e r- 1 ; 
any  remainder  is  lost. 

examples: 

DIVIDE  MUMS  INTO  STORE 
DIVIDE  2b  INTO  RESULT 


ENTtW 


ELEMENT: 

ENTtrt 


FOrtMAl  ; 

Enter  I anguage-na^e  Irout i ne-namel 
OESLRiP 1 iUN; 


Ihis  construct  is  not  imoHmentea. 


tXlT 


ELtMENT; 

EXi  I 

» 

FOHMAI  : 

EXIl  fPROGHAMl 
DESCRIP  I iUN: 

The  EXIT  command  causes  no  action  ov  the  interpreter 
but  allows  for  an  empty  paragraoh  for  the  construction 
of  a common  return  point.  The  optional  PROGRAM  state- 
ment is  not  implimenteo  as  it  is  part  of  the  interpro- 
gram communication  module. 

examples; 

RETURN. 

EXIT. 
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tLtMtNF 


GU 


FORMA  t ; 

1 . 

GU  procedure-naire 


GU  procedure-1  (procedure-21  ...  procedure-20 
UtPtNuING  iuentifier 

DESLRIPI lUN: 

The  30  coir^mand  causes  an  unconditional  brancn 
routine  specified.  The  second  form  causes  a 
branch  depending  on  the  value  of  the  contents 
identifier.  The  identifier  must  oe  a numeric 
value.  There  can  oe  no  more  than  20  crocedure 

EXAMPLES: 

GU  KEAU-CARD. 

GU  HEADl  REAU2  REAU3  DEPENDIi>lG  REAu-iNUEX. 


to  the 
f orward 
of  the 
i n t ege  r 
names  . 


IF 


ELEMENT  : 
IF 


FORMA  J : 

IF  <condiFion>  {imperative  } ELSE  imperative"? 
{NEXT  SENTENCE} 


UESLRIP I iUN: 

This  is  the  standard  COBOL  IF  statement.  Note  that 
there  is  no  nesting  of  IF  statements  allowed  since  tne 
If  statement  is  a conditional. 

examples; 

IF  A GREATER  B ADD  A TO  C ELSE  GO  EPKOR-UNE. 

IF  A NOT  numeric  NEXT  SENTENCE  ELSE  MOvE  ZERO  10  A. 


93 


1^^ 


MO  V E 


ELtMtNT: 


MUVt 


FOHma  I : 


MUVt  ( i dent i f i er- 1 } TO  identifier*^ 
{ 1 i teral  } 


DESLKIP  I lUfv; 


The  standard  list  of  allowable  moves  apolies  to  this 
action.  As  a scace  savina  feature  of  this  implimenta- 


tion»  all  numeric  moves  go  through  the  accumulators. 
This  makes  numeric  moves  slower  than  a 1 pha*nume r i c 
moveSf  and  where  oossiole  thev  should  be  avoided.  Any 
move  that  involves  picture  clauses  that  are  exactly 
the  same  can  be  accomolished  as  an  alpha-numeric  move 
if  the  elements  are  redefined  as  aloha-numeric;  also 
all  group  moves  are  alpha-numeric. 


examples: 


MUVt  SPACE  TU  PPINT-LINE 


MUVL  A(10)  TU  6(PTK)  . 


multiply 


1 

( 

1 

I 

I 

1 

j 
i 

ELEMtNr;  ! 

MULIlPLY  ' 

FORMAl; 

MULfiPLY  (identifier)  bY  identifier-^  (ROUNDLDJ 
(literal  ) 

(SIZE  ERROR  < i nperat i ve-st atement >1 
DESLRIP  I lUfx: 

The  multiply  routine  reouires  enough  space  to  calcu- 
late the  result  with  the  full  number  of  decimal  oigits 
prior  to  moving  the  result  into  identifier-?.  This 
means  that  a number  with  5 places  after  the  decimal 
multiplied  by  a number  with  o places  after  the  decimal 
will  generate  a number  with  11  aecimal  places  which 
would  overflow  if  there  were  more  than  7 digits  be  lore 
the  dec i ma  I p 1 ace  . 

examples: 

MULIlPLY  X BY  Y. 

MULIlPLY  A By  b(7)  SIZE  ERROR  00  OVFRFlOw. 


R5 


UPtN 


ELtMtNI; 

OPEN 

FOHMAI : 


OPEN  {INPUT  fil«-name  > 
(OUTPUT  file-name> 
{ I -0  f j ] e-name  > 


OEauHlPl lUN; 


These  three  types  oi  opens  have  the  exact  same  effect 
on  the  diskette.  However^  they  do  allow  tor  internal 
checkino  of  the  other  file  actions,  tor  examnle»  a 
write  to  a file  set  ooen  as  input  will  cause  a fatal 
error. 


examples: 


OPEN  INPUT  CAPOS. 

OPEN  OUTPUT  HEPCkT'FILE, 


9o 


•=rrjsan 


PERFORM 


ELEMENT: 


i 


PERFORM 

forma  I : 

I 

1 . 

PERFORM  procedure-name  fTFtRU  oroceOure-name-^l 

d. 

j PERFORM  procedure-name  CTFIRU  proceaure-name-<^l 

j { i dent i f i er > T IMES 

{ i nteger  } 

' i. 

I 

PERFORM  proceriure-name  (THRU  orocedure-name-^] 
UNTIL  <condition> 


OESLRIP I lUN: 

All  three  ootions  are  supportea.  Branching  may  be  ei- 
ther forward  or  backward#  and  the  procedures  called 
may  have  oerform  statements  in  them  as  long  as  the  end 
points  do  not  coincide  or  overlap. 

examples: 

PERFORM  OPEN-ROUTINE. 

PERFORM  totals  THRU  END-REPORT. 

PERFORM  SUM  10  TIMES. 

PERFORM  SKIP-LINE  UNTIL  PG-CNT  GREATER  60. 


R7 


HEAD 


element  : 

KtAU 


FOKMAl  ; 

1 . 

RtAu  file-name  INVALID  < i mpe ra t i ve-s t a t emen t > 

NtAU  file-name  END  < i mpe ra t i ve-s t a t emen t > 

DESLKIP  I IL'N: 

The  invalid  conaition  is  only  applicable  to  files  in  a 
random  mode.  All  sequential  files  must  have  an  FnD 
statement  . 

examples; 

PtAU  CAROS  END  GO  ENO-OF-FILE. 

HtAU  RANDOM-FILE  INVALID  MOVE  SPACES  Tu  REL-1. 


PtWRITE 


[ 


FORMAT  : 

RfcWKiTfc  fite“naTe  {INVALID  < i mpe r a t i ve> ) 


1 


{ 

I 


DESLRlP I lUN; 

RtrtRlTE  is  only  valio  for  files  that  are  open  in  the 
I-U  moae.  The  INVALID  clause  is  only  valia  for  random 
files.  This  statement  results  in  the  current  record 
oeing  written  baci*;  into  the  place  that  it  was  just 
read  from.  Note  that  this  requires  a file  name  not  a 
record  name. 


examples; 

RErtKiTE  CARDS. 

REWRITE  RA.>iD-l  INVAIU  PERFORM  ERROR-CHECK. 
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5TUP 


ELLMtrJT; 

SI  OH 


FOHMAI  ; 


SlOH  {RUN  } 

{ I 1 teral } 


OESCRIP I lUN: 


This  statement  ends  the  running  of 
It  a literal  is  SDecified»  then 
displayed  on  the  console  prior  to  te 
prooram . 


the 

the 


examples : 

SlUH  RUN. 

SlUH  1. 

SlOH  "INVALID  FINISH". 


interpreter, 
1 i t e r d 1 IS 
ion  of  ,t  h e 
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^KIIE 


element  ; 

»VKI  I E 


forma  f ; 

I . 

aKIiE  file-name  UdEFORE}  ADVAiwCiNG  {INTEGER}] 

{AFTER  } {PAGE  ) 


rtWIlE  file-name  INVALID  < i mne r a t i ve-s t a t emen t > 
DESLRIPI lUN: 

There  is  no  printer  on  the  8080  system  here,  so 
advancing  option  is  not  imolimented.  The  IwVALlD 
tion  only  applies  to  random  files. 


examples; 

AKlIE  out-file, 

rtKllE  RAnO-FILE  INVALID  PERFORM  ERROR-HECOV. 


t ne 
op- 


<cond i t i on> 


tLtMENT: 


<cona i t i on> 


FORMA  f ; 

KtLAllUUAL  condition: 

{ 1 aent i f i er- 1 1 INOFl  IGRtATER}  { i dent i t i er-2> 
{literal”!}  {LESS  } {literal-*?  } 

{EQUAL  } 

CLASS  CONDITION; 

identifier  [NOTl  {NUMERIC  ) 

{ALPHABETIC) 

DESLRIPI lUN: 

It  is  not  valid  to  compare  two  literals.  The 
condition  NUMERIC  will  allow  for  a siqn  if  the 
tifier  is  signed  numeric. 


examples: 

A NUT  LESS  10. 
LINE  GREATER  "C". 


class 
i den- 


NUMB!  NOT  NUMERIC 


hLtMENT  : 

SuDsc  r i pt i nq 


Subsc  r i Dt i nq 


FOHMAI  : 

data-name  (subscript) 

DESLHlPliUN:  * 

Any  iteip  detinea  with  an  OCCUR;)  many  be  referenced  cy 
a subscript.  The  subscript  may  he  a literal  integer^ 
it  may  be  a data  item  that  has  been  specifier  as  an 
eger.  If  the  subscript  is  signed*  the  sign  must  oe 
ositive  at  the  time  of  its  use. 

tX AMPLtS : 

AtlO) 

I I EM(SUB) 


lOa 


rv 


COMPILER  TOGGLES 


Ihere  are  four  toggles  in 
tered  on  the  first  line  of  the 
lowed  by  the  given  letter.  In 
the  default  value. 

5L  “•  list  the  input  cooe 
is  compiled.  Default  is  on. 
cult  to  unoerstand  if 
interface  device  is  a 
situations. 


the  compiler.  They  are  en- 
program  as  a dollar  sign  fol- 
each  case  the  toggle  reverses 

on  the  screen  as  the  program 
Error  messages  will  be  oiffi- 
»s  turned  off»  but  if  the 
may  be  desired  in  certain 


this  t oog 1 e 
tel et yoe»  i t 


--  seouence  numbers  are  in  the  first  six  oositions 
of  each  record.  Default  is  off. 

SP  --  list  productions  as  they  occur.  Default  is  off. 

SI  list  toxens  from  the  scanner.  Default  is  off. 


VI.  FILE  INTERACTIONS  \NlTh  CP/M 

[he  tile  structure  that  is  expected  by  the  progranr,  im- 
poses some  restrictions  on  the  system.  References  ? ann  5 
contain  detailed  information  on  the  tacit  ties  ot  CP/M,  and 
should  oe  consulteo  tor  details.  Ihe  information  that  has 
been  included  in  this  section  is  intenaea  to  explain  wnere 
limitations  exist  ana  how  the  program  interacts  with  the 
system. 

All  tiles  in  CP/V  are  on  a random  access  de-ice/  and 
there  is  no  wav  tor  the  system  to  distinguisn  seauential 
tiles  from  files  created  in  a random  mode,  This  means  that 
the  various  types  of  reads  and  writes  are  all  valid  to  any 
file  that  has  fixed  length  records.  Tne  restrictions  of  tne 
ASSliiN  statement  do  prevent  a file  from  being  open  tor  ooth 
random  and  seguential  actions  during  one  orogram. 

Each  logical  record  is  terminated  by  a carriage  return 
and  a line  teed.  In  the  case  of  variable  length  records/ 
this  is  the  only  end  marx  that  exists.  Ihis  convention  was 
addopted  to  allow  the  various  programs  which  are  used  in 
CP/M  to  work  with  the  files.  Files  created  Oy  the  editor/ 
for  example/  will  generally  be  variable  length  files.  This 
convention  does  remove  the  capability  of  reading  variable 


lenath  files  in  a random  mode 


AH  of  the  physical  records  are  assumed  to  be  IdB  bytes 


in  lengthy  and  the  crogram  supplies  buffer 
records  in  addition  to  the  logical  records, 
may  be  of  any  desirea  lenath. 


space  for  these 
Logical  recoras 


ERROR  messages 


COMKiLEK  hATAL  MESSAGES 

bR  bad  read  --  disk  error»  no  corrective  action 
taken  in  the  program. 

CL  Close  error  --  unaole  to  close  the  output  til 

MA  Maice  error  --  could  not  crea'  t tne  output  til 

MO  Memory  overflow  — the  code  and  constants 
will  not  fit  in  the  alloted  memory  space. 

OP  Open  error  --  can  not  open  the  input  filer  or 
file  present . 

ST  Symbol  table  overflow  --  symbol  table  is  too 
the  allocated  space. 

wR  hrite  error  --  disk  error>  could  not  write 
record  to  the  aisk. 

COMkILEk  warnings 

% 

EL  Extra  levels  --  only  10  levels  are  allowed. 


can  oe 


e . 


e . 


generat  ed 


no  such 


large  for 


a coae 


File  tyoe  --  the  data  element  used  in  a reaa  or  write 
statement  is  not  a tile  name. 

lA  Invalid  access  --  the  soecified  ootions  are  not  an  al- 
lowable combination. 


ID  Identifier  stack  overflow  --  more  than  20  items  in  a 
liU  10  --  OEPENuING  statement. 


IS  Invalid  subscrict  --  an  item  was  subscripted  but  it 

was  not  defined  oy  an  OCCURS. 

n Invalid  type  the  field  types  ao  not  match  for  this 
St  at  ement . 

t-E  Literal  error  --  a literal  value  was  assigned  to  an 

item  that  is  part  of  a group  item  oreviously  assigned 
a value. 


No  tile  assignee  --  there  was  no  SELECT  clause  for 
this  file. 


Not  implimentea  --  a production  was  used  that  is  not 
i mp I i ment  ea . 

Non-numeric  --  an  invalid  character  was  founu  in  a 
nume r i c string. 
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NP  No  production  --  no  production  exists  for  the  cuurrent 
parser  configuration;  error  recovery  will  autottat  i ca  1 - 
ly  occur. 

NV  Numeric  value  --  a numeric  value  was  assigned  to  a 
non-numeric  item. 

PC  Picture  clause  --  an  invalid  character  or  set  of  char- 
acters exists  in  the  picture  clause. 


PP  Paragraph  first  --  a section  header  was  produced  after 
a paragraoh  header,  which  is  not  in  a section. 


PI  Hedefine  nesting  --  a redefinition  was  made  for  an 
item  which  is  part  of  a redefined  item. 


R2  Hedefine  length  --  the  length  of  the  redefinition  item 


was  greater  than  the  item  that  it  redefined. 


SE  Scanner  error  --  the  scanner  was  unable  to  read  an 


Identifier  due  to  an  invalid  character. 

SG  Sign  error  --  either  a sign  was  expected  ana  not 
found,  or  a sign  was  present  when  not  valid. 

SL  Significance  loss  --  the  number  assigned  as  a value  is 
larger  than  the  field  defined. 


1 1 1 


Type  error  --  the  type  of  a subscript  inoex  is  not  in- 
teger numeric. 

value  nrror  --  a value  statement  was  assigned  to  ar 
item  in  the  fils  section. 


INTtKPRtTtR  fatal  E.RR0RS 

CL  Close  error  --  the  system  was  unable  to  dose  an  out- 
put file. 

i4E  Make  error  --  the  system  was  unaole  to  make  an  input 

file  on  the  aisk, 

nF  iMo  file  --  an  input  file  could  not  be  ooened. 

til  .vrite  to  inout  --  a write  was  attemoteu  to  an  incut 

file. 


INTLRHHtTtR  WARNING  MESSAGES 

EM  tnd  mark  --  a record  that  was  read  did  not  have  a car- 
riage return  or  a line  feed  in  the  excected  location. 

GO  Go  to  depending  --  the  value  of  the  oepenoing  indica- 
tor was  greater  than  the  number  of  available  oranch 


1 


addresses . 

1C  Invalid  character  an  invalia  character  was  loaded 
into  an  outout  field  during  an  edited  move.  For  exam- 
ple»  a numeric  character  into  an  al phaoet i c-on 1 y 
field. 

SI  Sign  Invalid  --  the  sign  is  not  a "t"  or  a 


1*  CraiQf  A.  S.  MICWO-COBOL  an  implementation  of  Navy 
Standard  MYPO-CUBOL  for  a mi c roprocessor-oased  com- 
puter system.  Masters  Thesis,  Naval  Postgraduate 
School,  March  1977. 


2.  Digital  Research,  An  Introduction  to  CP/M  Features  and 

Facilities,  1976 

3.  Digital  Research,  CP/M  Interface  Guide,  197o. 


Intel  Corporation,  6000  and  8080  PL/M  Progrommino 
al,  1975. 


5.  Intel  Corperation,  0OPO  Simulator  Software  Packaoe, 
197^4. 


6.  Software  Development  Division,  ADPE  Selection  Office, 
Department  of  the  Navy,  HYPO-CuBDL,  April  19/5. 

Strutynski,  Kathryn  B.  Information  on  the  CP/M  Inter- 
face Simulator,  internally  distrioutea  technical 
:e . 


CCeCL  CCHPILER  - PART  1 


IOOH:  /*  LCAC  POINT  •/ 

/*  GLOBAL  CECLARATIONS  AND  LITERALS  */ 

DECLARE  LIT  LITERALLY  'LITERALLY*: 

DECLARE 


CCD  10 

1 

80CS 

LIT 

*5H>,  / 

ODD  11 

1 

MAXSMEMCRY 

l-JT 

• 3100H* 

ODD  12 

1 

INITIALSPOS 

LIT 

•2COOH* 

0C013 

1 

RCRSLENGTH 

LIT 

•255' , 

00014 

1 

PASSISLEN 

LIT 

•46', 

0C015 

1 

BCCT 

LIT 

•0*  , 

00016 

1 

CR 

LIT 

• 13' , 

00017 

1 

LF 

LIT 

•10', 
•22H* , 

0C018 

1 

CUOTE 

LIT 

0C019 

1 

FCUNC 

LIT 

•23H', 

CC020 

1 

TRLE 

LIT 

• 1', 

0C021 

1 

FALSE 

LJT 

•0*  • 

•while 

00022 

1 

FOREVER 

LIT 

*5H',  /•  ENTRY  TC  OPERATING  SYSTEM  •/ 


CC02E  I 
0C027  1 


00053  1 

C003A  1 

00035  1 

00036  1 

0CC37  1 

00038  1 

0C039  1 

CCOAO  I 
OCOAl  1 


00051  1 

0C052  1 

00053  I 
CC05A  1 

00055  1 

00056  I 

0C057  1 

0C058  1 

0C059  1 

0C060  1 

CC061  I 
00062  1 
0C063  1 

0006A  1 

00065  1 

0C066  1 

0C067  1 

00068  1 
CC069  1 

OC070  1 

00071  1 

0C072  1 

00073  I 

00074  1 

00075  1 

00076  X 

0C077  X 
00078  X 
CC07S  X 
CCCfaC  X 
0C081  1 

0C082  X 
0C083  X 
0C084  X 
00085  X 
0C0E6  X 
CCCS7  X 
0C088  X 
0CC89  X 
CC090  X 
OCOVl  X 
0CC92  X 
0C093  1 

0CC94  X 
0C055  X 
0C0E6  X 
OCOS7  X 
00098  X 
0C099  X 
CCXOO  1 

00101  j 

00102  I 

00103  1 

0C1C4  1 

0C105  1 

0C106  1 

C01C7  1 

ocice  1 


DECLARE  MATRNO  LITERALLY  <X04',/*  MAX  READ  COUNT  */ 

PAXLNO  LITERALLY  'X29'f/«  MAX  LOOK  COUNT  »/ 

MAXFNO  literally  '145',/*  MAX  PUSH  COUNT  »/ 

MAXSNO  literally  '234',/*  MAX  STATE  CCLNT  */ 

STARTS  literally  '1';/*  START  STATE  »/ 

DECLARE  REACX  DATA ( 0 , 57 , 48,56 , 32 , 8 ,25, 59,2 , 16 , 17 ,22 , 2 S, 53 i 58, 1 X , 32 ,32 .39 
,38,34,44,9, X9, 3 2, 37, 6. 33, 3, 14, 15,  13,20, 32,28,49, 3 2,  1,42,  38,3  6,43,1 
. 1,1, 1,1, X,  1,1,1 , 10,1  .39, 1 , 1,  1,33,40,49,38,39,1,1  ,38 .23. 24, 55, 52, 41 
,35,46,1,7  ,50, 1,32. 1,32.32,45, 1,32,  1,32,  1,32,4  7,3  7,4 ,26,32,54 ,40,1,1 
,32,5,  12, 13, 21, 22,2  7, 1,60, 1,23, 24, 55,30, 51 1 ; 

CECLARE  LUCKX  CATAI 0 , S , 0, 25 , 0, 9, 19,0,42,0,42,C.X,0,32.0,4X,0.35,C,X,0,47 
t0t4«0t54it0t  40  t0«35»Ho«60«0tit0f32f0tlf0«lt0fLlf0«c0«0»7f093^fC«32fC 
1 3 2 f 0 i f 

OtCLiRF  APPtYl  CATAI 0.0»0»0i Of  Of 9, 10,12, 14,19,0,0,0,0,0, 0*1 01 *0,0, lOfl I 0 
,C,0,C,0,0,97,0,2T,0,0,0,69,0,91,92,0,0,91, 92 ,0,0,0,0,13, 17,0, 102 
,103, 104,0,0^0,0, 0,93,0, 0,34, 0,0 ,23, 30,30, 39, 0,21 ,40,52,56,67,93,94 

DECLARE  RE A02  CATA 1 0 ,65 ,57 , 64 , X54 ,26 ,37, 67 , 2 1 ,30 , 31 , 33, 39, 61 , 66 , 27 , 2 34 

,21 5. 5 1,45, 103.109,223,224,233, 4 3, 2 1 6, 217, 22,230, 229,232. 23 1,223 ,173 
,17 2, 189, 9. 226, 4 7. 196, 19 5, 7, 0,11, 13. IS, 2, 3, 1 05, 14, 15 6,4,50,2 0,12, 18 
,48 ,171 ,17<),44, 49, 15,10,46,  j5, 36,63,60,53,42, 146. 16,25 ,5d,  106, 15  5 
, 148, X £*, 15 5, 55, 1 5 0, 1 55, 1 52, 155, 15 7,  155, 56, 193, 23, 2 0E, 234, 62, 52, 2 06 
,180,234,24,23,107,32,34,38,17,63,164,35,36.63,40,59): 

DECLARE  L0CK2  CATA 10 ,5 , 130, 6 , 1 31 , 29 ,20 , 132 , 4 1 , 1 33 , 54 , 134 , 135 , 69 ,7 1 , 1 36 

,72.137,73,138,139,80,84, 140,86, i93, 88, 141,09, 142 ,184.184,184,91,189 
,92, 93, 19 7, 2 1 1.95, 143, 96, 97, 176, 99, 144, 145, 101, 102, 2 CO, 103, 202, 104 
, 1 8 8 ) : 

declare  APPLY2  C AT AIO, 0,77, 11 1,  112, 147, 79, 1 14, 31, 82, 33, 76, 76, 117,  15,  156 
,126,163,162,100,166,165,167,118,168,160,124,179,178,94,121,74,125 
, 120, 1 19, 16 7, 167, 1 66, 98,  192, 192, 19 1,  194, 1 13, 133, 128, 129,  12 7, 2C5, 2 05 
,205,204,115,123 ,90 , 122 , 2 14. 2 13 , 22 1 , 219 , 213 ,222, 199,65,220, 116.37 
, 110,  70,114,209.207,182,182,1311  : 

DECLARE  INCEXl  DATA ( 0 , 1 ,2 , 3,4 , 5, 6 , 7 , 8, 4, 4,  24 , 4 , 24, 4 , 1 3 , 1 4, 24 , 1 09 ,4 , 1 5 , 16 
. 16,24,17,13,19,16,20,22,2  4,25,26,28,29,34,36,37,24,24,16, Jd, 39, 40 
,42, 43, 44,45, 46, 47, 48, 49,10,50,36, 31, 16, 52, 53, 54, 35, 56, 57, 53,60,61 
,62, 63 .64, a, 65, 6b, 69, 70, 71, 72, 73,74.75,77,79,01,83,35.87,03,89,90, 92 
,5 3,94,8,8,16,95,97,97,15, 103,104,105,109,24,24,24, 1 ,3,5,3, 10, 12, 14 
, 16, 18 ,20,22,24, 26 ,23,30, 34,36 ,38,40,42,44,46,4  3 ,50,52,135 , 149,2  25 
, 22 7, 227, 19C, 151  , 153, 203, 159, 210, 161, 175, 212, 201, 177, 1,2, 3. 3. 4, 4, 5, 5 
,6,6. 12, 13, 14, 14,15,15,16. 16,17,  19,19,20,20,20,22 ,22 ,23,23,24,24,2  5 
, 25, 26, 26, 27, 29, 29, 31, 32, 32, 33. 33, 35, 38,  3£, 33. 33, 39, 39, 39, 39, 35, 42 
, ,42, 43, 43,44, 4 4, ‘,5,43,48, 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 56, 56,  56, 56 
,56, 56, 53, 58, 53,  59,  59, 61. 61, 61, 61, 61, 62, 67): 

DECLARE  1NCEX2  0A7A( 0 , 1 , 1 . 1 , 1 , 1 , 1 , 1 . 5, 1 , 1 , 1 , 1 , 1 , U 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1, 1 . 1 
,1,1, 2, 2, 1,1, 2, 1,5, 2, 1,1, 1,1, 1,1, 1,2, 1,1, 1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1 
,1,1, 1, 2, 1,1, 1,1, I, 5, 3, 1,1, 1,1, 1,1, 1,2, 2, 2, 2, 2, 2, 1, 1,1, 2, 1,1, 1,5, 5,1 
,2, 6, 6, 1,1, 1,4, 2 ,1,1, 1,2, 2, 3, 2,-2, 2, 2, '2, 2., 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2 
,2.2,5,6,29,41,54,69,71,72,73,30,84,88,09,96,99,101,2,9,3,0,3,0,3,0 
,0,1 ,7  ,8,1  ,0,6, 0,0, 1,3,0, 1,1,2, 1,0, 0,0,0, 1,0,2, 0, 0,1 ,2,0,1 ,5, 3, 0,0, I 
, 4, C,C,C, 1,2, 1,2, 2, 2, 0,2, 3, 0,3, 0,0, 1,4, 0,0, 1,0, 0,0, 0,1, 1, 1,1, 2, 2, 1,1 

,i,o,c,c,o,c,c,o,o,o,o,o,o) : 

/•  END  CF  TA8LES  •/ 

CECLARE 

/*  JCINT  CECLARATIONS 

THESE  ITEMS  ARE  DECLARED  TOGETHER  IN  THIS  SECTION 
IN  ORCER  TC  FACILITATE  THEIR  BEING  SAVED  FOR 
THE  SECCNO  FAR!  CF  THE  COMPILER. 

•/ 


CL'TPUTIFCS 

CEBUC-GING 

PRJNTAFROC 

PRIKTJTCKEK 

L ISTI INPUT 

SEOiHUM 

NExnSYM 

POINTER 

NEXTtAVAILABLE 
MAXSINUMEM 
f ILEtSECSENC 
FREEtSTCRAGE 


(331  BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

ADDRESS, 

ACDKESS 

ACOPESS 

ADDRESS 

Byte 

ADDRESS 


initialio,  • 

INITIAL  (FALSE), 
IHITIALIFALSE), 
INITIAL(FALSE), 
INITIAL  (FALSEI, 
INITIAL  (FALSE), 

INITIAL  (lOOH), 
INITIAL  (2002h1, 
INITIAL  (3200H), 
INITIAL  (FALSE) , 
INITIAL  I2500H), 


'.'CIN'iO, 0,0,0), 


/•  1 C buffers  and  globals  •/ 

lAAACCR  AOCRESS  I.NITIAL  I5CH), 
INPUTifCQ  BAScfi  IMADOR  (33)  SYTE, 
cltputifir  address, 

CLTPLTIEUFF  (123)  BYTE, 

CLTPUTIENC  ADDRESS, 

CUTRUTICHAR  BASEC  OUTPUTiPTR  BYTE: 


115 


0C^09 


COllO 


0C113 

*:ii 


OCiM 


OQUS 

00116 

881  il 


58 

3CiC9 
CC2  1C 
00211 
0021' 
002  1 
002  M 
0C2  15 


00119 

‘C12' 


CC120 

OC121 

00122 


OC123 

0C126 


0012S 
00  26 

00127 

00128 
00129 
CC130 
OOlil 

00132 

00133 
0C139 

00135 

00136 
CC137 
00136 
0C139 
CCIAO 
OClAl 
0C1A2 
001A3 
OOIAA 
OCIAS 
001A6 
0C1A7 
0C1A8 
CC1A9 
OCISO 
CClf  1 
0C152 
OC153 
0C16A 
00155 
0C156 

00157 

00158 
OC159 
CC160 
QC161 
00162 
00163 
0016A 

00165 

00166 

00167 

00168 
00169 
CC170 
0C171 
0C172 
00173 
0017A 

00175 
0C176 
00177 

00176 
00179 
CC180 
00181 
00182 
00183 
0C16A 

00185 

00186 
00167 
0C188 
00169 
CC190 

00191 

00192 

00193 
0C19A 
0C195 
Q0l96 
CC197 
00198 


00199 

coioo 


00201 

00202 

00203 


g020A 


30205 

CC206 


! I 


0C2{^ 


002  I 
002  18 


'I 


HCM:  PRQCCCLRE  (F,*ll 

CECLARE  f eVTEt  * ACORESS; 

cc  TO  accs: 

EKO  HCNl: 


PCN2:  PROCEDtRE  (FtAI  BYTE: 

CECLARE  F BYTE.  A ACORESSi 
CC  TO  BCCSi 
END  PCN2: 


PRIN1CHAR:  PRCCECUP.P  (ChARll 
OfcCLARE  Ol-AR  CYTE; 

CALL  PCM  (2. CHAP); 

END  PRlNTCI-<Pt 


CBLPl  PRCCECURE: 

call  PRIKICHARICR) ; 
CALL  PRlNTChAR(LF) 1 
ENO  CRLF; 


PRINT:  PRQCECUPE  (Al: 
CECLARE  A ADCP.ESS: 
CALL  HCM  (9. A) ; 
ENO  PRINT; 


PRINTIERROR:  FRCCEOURc  (COCcC 
CECLARE  CCCE  ADDRESS: 

CALL  CRLP: 

CALL  PBINTChAR(HlGH<COOEn  : 
CALL  PPINTCMRILCWICOOEI)  ; 
ENO  PftINTSERRCF: 


FATALiERRCP:  PPCCED'JREIREASONI  : 
CECLARE  R6ASCN  ADDRESS: 

CALL  PPINTJERPORIREASONl : 
CALL  TiPEdO): 

CO  TO  BCOl ; 

END  FATALSEPRCR; 


OPEN:  PSOCECURE; 

IF  NONE  (15,1N*ACCR)=255  THEN  CALL  FATALJERRORI 'OP' » ; 
END  CPEN: 


HCREl INPUT:  FPCCECURE  BYTE: 

/»  READS  THE  INPUT  FILE  AND  RETURNS  TRUE  IF  A RECORD 
NAS  REAC,  false  IMPLIES  EMD  OF  FILE  •/ 


CECJ.ARE.CC.M.  BYTE: 


(DCNT:«MCN2(20,.INPUTtFCB))>l  THEN  CALL  FATAL SEPRCR ( ' SR • I ; 
RETURN  NOTICCNTI ; 

ENO  PORESINFUl ; 


PANE:  PROCECURE: 

/»  DELETES  ANY  EXISTING  COPY  OF  THE  OUTPUT  FILE 
ANC  CREATES  A NEW  COPY*/ 

CALL  MCN1(19,.CUTPUT*FCBI ; 

IF  MON2(22,.CUTPUTSFC3l»255  THEN  CALL  'ATALJERRORI 'MA* I ; 
END  MAKE: 


WRITEPOUTPLT:  PROCEDURE; 

/*  WRITES  CUT  A BUFFER  •/ 
CAUU  HCM(26..0U7PUT*8UFF»: 


/•  SET  DMA  */ 


IF  MON2(21..CUTPUT$FCei<>0  THEN  CAUU  FAT AL lERROR I • WR • I ; 
CALL_MCM126,80H):  /•  reset  DMA  »/ 


END  WBI TEiCLTPUI ; 


PCVE:  PROCECUREISOURCE,  DESTINATION,  COUNTI : 

/»  MOVES  FOR  THE  NUMBER  OF  BYTES  SPECIFIED  BY  COUNT  »/ 
CECLARE  (SOURCE,  DcSTINATIONI  ADDRESS, 

(5»BYTE  EASDC  SOURCE,  0S3YTE  BASED  DESTINATION,  COUNll  BYTE: 
00  WHILE  (CCUNT:«CCUNT  - II  <>  255: 

■■-YT£«S» 


DIBYT 


5A3Y7E : 


ENO; 

END  PCVE: 


SCLRCE»S0URCE  ♦!: 

DESTINATION  * DESTINATION  ♦ 1: 


FILL:  PROCECL'REIAOOR, CHAR, COUNTI  ; 

/•  MOVES  CPAR  INTO  AOOR  FOR  COUNT  BYTES  •/ 


CEOLARC  AOCR  ADDRESS, 

(OH  - - 


iCHAR, Count, CEST  based  addri  byte; 
DC  while  (COUNT:  .COUNT  -1)0255; 
OEST-CPAR: 

ACCP.ACCR  * l: 

end: 

ENO  fill; 


\ /#  • • • 

1 

• • SCA 

NNER  LI 

1 LITERAL 

LIT 

•15*, 

1 INPUTIS7R 

‘-IT 

•32*, 

1 PERICn 

L 11 

* 1*  , 

1 INVALIC 

LIT 

*0*: 

•/ 


/•  • » • * SCANNER  tables  * * • 

DECLARE  TOPEMIAFlE  CATA 

/•  CONTAINS  THE  TOKEN  NUMBER  ONE  LESS  THAN  THE  FIRST  RESERVED  WORD 
FOR  EACH  LEACrn  CF  wORO  •/ 

(0,0,1  ,<.,5,15,22,32,38.A4,'.7,<,9,51,55,56,57), 


table  0ATA(  ‘FC*  ,'DF*  ,»T0*  , 'PIC  ,'COPP'  , *0ATA*  , 'FILF* 

• I!,  'PC'jE'ifSfME'  I'ilG'l* , • sync*  , 'EERO* , 'BLOCK'  , • LABEL* 


, • I er  ' • , ■ WL'IC  ■ 1 ■ • 1 ■ j l D'l  • , ■ i nL  • , • tcwu  • , ■IJLUt.  R ' , • LABEL  ' 

,'CUOTc* , 'PlLMT' , • SPACE* , *USAGE' .'VALUE' , 'ACCESS ‘ASSIGN* 
, 'AIJTHCR* , 'FILLEP'  , 'OCCUR  S'  , 'rANCOM*  .'RECCRC  , 'SELECT 


, *01  SPLAY ' , 'LEAUINd', ' LlNKAoE ' , 'OMI TTED* , 'PCCORDS* 
. 'SEC7  ICN*  ,*CI  VI  SION*  , 'RELAT  IVE* , •ScCU'-  ITY'  , 


,'LIVISILR'f'K:.  LAI  IV ','SCLU-  I IT',  'SEPARATE*, 'STANDARD* 
, 'TRAILING* ,*CEBUGG INC* , • PROLEDURE* ,* Pc  DEFINES* 

, 'PP7GPAP-  If  * , 'SFOUFHT  JAL  • , *ENVIRaNMEM*  , * I-U-CON7ROL* 

, *DAIE-»R  mil.*  , *F  ILE-CCNIRCL'  , ' INPUT-OUl  PUT*  , 'ORGAN  WAT  ION* 


116 


0C219 

00220 

0C221 

0C222 

00223 

00224 

00225 
0C224 
0C227 
00228 
0C229 
0C230 
OC231 
0C232 
00233 
0C234 
OC235 

00236 

00237 

00238 
0C239 
CC240 

00241 

00242 
0C243 

00244 

00245 

00246 

00247 

00248 
0C249 
00250 
OC251 
0C252 
0C2S3 
0C254 

00255 

00256 
0C257 

00258 

00259 
CC260 
00261 
00262 

00263 

00264 
0026  5 
00266 
00267 
0C268 
00269 
0C270 
OC271 

00272 

00273 
0C274 
00275 
OC276 

00277 

00278 
CC279 
0C280 
00261 
00282 

00283 

00284 
0C2E5 
00286 

00287 

00288 
C0289 
00290 
0C291 
0C292 
00293 
0C294 
00295 
0C296 

00297 

00298 

00299 
CC300 
0C301 

00302 

00303 
0C3C4 
00305 
0C306 
0C3C7 
0C3C8 
00309 
C0310 

00311 

00312 

00313 

00314 
003  15 

00316 

00317 


QC318 

SSIIi 

00323 

00324 

00325 
003<6 
00327 
0C328 


. 'CONFICURATICN* , • ID6NTIF I CATI ON ' t ’OBJECT-COMPUTER* 
l•SCURCE-CC^'PUTER•,•WORMNO-STORA(iE•  1. 

OFFSET  (16)  ACCRESS 

/•  .NUMBER  CF  BYTES  TO  INDEX  INTO  THE  TABLE  FOR  EACH  LENGTH  •/ 
initial  (OtO, Of 6, 9, 45.80, 128.1 70, 218. 245. 265. 

287.335.346,362). 

UORCtCOUNT  CA7A 

/*  NUMSER  CF  WORCS  OF  EACH  SIZE  •/ 
iC.O. 3. 1.9. 7. 6. 6. 6. 3. 2. 2. 4. 1.1. 3). 


FAXELEN 

AOOEENC 

LOCKED 

FOLD 

EUFFERSENO 

NEXT 

INBUFF 

CFAR 

ACCUMELENG 

ACCUH 

FEACCUM 

CISPLAY 

CISPLAYIREST 

1CKEN 


LIT 
DATA 
BYTE 
BYTE, 
ADDRESS 
BASED 
LIT 
BYTE, 
LIT 
BYTE, 


•16', 

(•PROCEDURE  <1, 
INITIAL  (0), 


INITIAL 
POINTER 
•BOH’ , 

•50*  , 


( lOOHI , 
BYTE, 


|A^^UMELEN0.I 


BYTE, 
(0)  , 


initial 

(7J)  BYTE, 

BYTE;  /‘RETURNED  FROM  SCANNER 


•/ 


PROCeCURES  USED  BY  THE  SfANNER  • * • •/ 


nextechar:  frccfcure  byte: 

IF  LCCKEC  TEEN 
CO: 

lcckec-false: 

R:7LRN  (CHAR:>H0L0) ; 

END: 

IF  (PCIK7ER:*P01NTER  ♦ 1)  >«  BUFFEREENO  TFfN 
CC; 

IF  NCT  MCREE INPUT  THEN 
DC; 

BLFFER1EN0-. memory: 

FCINTERa.ADDEcND: 

ENC; 

ELSE  FCINTER-IN6UFF: 

END; 

RETURN  ICHAR:-N5XT): 

END  BEX  lECFAR i 

CETECFAR:  FRCCECLRE: 

/•  THIS  PROCEDURE  IS  CALLED  WHEN  A NEW  CHAR  IS  NEEDED  WITHOUT 
7TE  DIRECT  RETURN  OF  THE  CHARACTER*/ 

CFAR.NEXIECHAR: 

END  CETICHAR; 

OISPLAYELINE:  PRCCeOURE; 

IF  NOT  IISTEINPUT  THEN  RETURN: 

OISPLAXOISPLAY  ♦ 1)  « •$•; 

CALL  PR1NT(.DISPLAY$REST): 

CISPLAY-O; 

END  OISPLAtiLINE  ; 


L0A05D1 splay:  FRCCEDLRE; 
IF  DISPLAY  < 72  Then 


OISPLAY(DISPLAY:«OISPLAY  ♦ 1) 


char: 


CALL  GETACHAR: 

END  lcacjoisplay ; 

PLT:  PROCECL'RE: 

IF  ACCLM  < ACCUHILENG  THEN 
ACCUMIACCLM :«ACCLM*1)«CHAR; 

CALL  lcadecisplay; 

END  PUT: 

EATILINE:  FROCECIRE: 

CC  while  chabocr: 

CALL  LCAOADISPLAY: 

END: 

END  EATtLIBE: 

GETIBCABLABKi  FRCCSOURE: 

CEClARF  (B.I)  byte: 

CC  forever; 

‘ ‘ ■ ' THEN  CALL  LOAOtOI SPLAY; 


IF  CHAR 
CO; 


1^‘Ihar.cr  then 


CALL  OISPLAYtLINE: 

If  Seqanum  then  n«b: 
CC  I • 1 to  N; 


EBO; 

IF  CHAR 


ELSE  N>2; 
call  loadaoisplay: 

•••  THEN  CALL  EATALINE: 
•»•  THEN 


!f  Ihar  • 

OCI 

IF  NOT  DEBUGGING  THEN  CALL  EATALINE: 
ELSE  CALL  LOAOAOISPLAY; 

END: 

ENC: 

else 

retlbb: 

END;  /•  EBO  OF  DC  FOREVER  •/ 

END  CETANCIELAFk; 

SPACE;  FRCCEOUPE  BYTE: 

RETLNN  (CHAP*<  •)  OR  (CHAR*CR): 

END  SPACE: 


C0329 

00330 

00331 

8SIII 

0C334 

0C335 

0C33« 

00339 

0C340 

00391 

0C392 

0C393 

00399 

0C395 

0C396 

0C397 

0C398 

0C399 

C0330 

0C3:i 

003!2 

0C353 

0C359 

0C35S 

OC359 

OC3J7 

CQ3S8 

CC?5S 

00360 

0C361 

OC362 

0C363 

0C369 

0C365 

00366 

00367 

00368 
C036S 
CC370 
CC371 

00372 

00373 
00319 
0C375 
00376 
0C377 
0C378 
CC37S 
CC38C 

00381 

00382 

00383 
00389 

00385 

00386 
0C387 
0C388 
00389 
CC350 
0C3SI 
0C392 
00393 
00399 
00395 
0C396 

00397 

00398 
OC  i9  ■ 
CC900 
0C901 
0C9Q2 
0C9O3 
OC909 

00905 

00906 
0090  7 
009C8 

00909 

00910 

889\‘i 

0C913 

00919 

00915 

00916 

00917 

00918 
0C9  19 
CC920 

00921 

00922 
009  2 3 
00929 
OC925 
CC926 

00927 

00928 
0C929 
0C93C 
009  31 
009  72 

80973 
0939 
009|5 
C09?6 
00937 
00938 


OELIKITER!  PRCCEDt'RE  BYTE: 

/•  CHECKS  FOK  6 PERIOU  FOLLOWED  8V  A SPACE  CR  CR*/ 
IF  C8AB  <>  THEN  RETURN  FALSE; 

ecld»nextjchar: 

LC0KEC»1RUE ; 

IF  SPACE  IFEN 

cc; 

C8/R  ■ 

PEIUFK  TRUE; 

cNOi 

CFAR-* 

RETLRN  FALSE; 

ENO  celiniter; 

enoscfstoken:  frccedl'RE  byte; 

RETURN  SPACE  CR  DELIMITER; 

ERO  EKDSCFtICKER; 

GETlLITERALi  PFCCEOURE  BYTE; 

CALL  LCACSOlSPLAY; 

CC  FOREVER: 

IF  ChAR-  QUOTE  THEN 

oc; 

CALL  lcaoioisplay: 

RETURN  literal; 

ENC; 

CALL  PUT; 

EKO; 

END  CETILIIERAL; 

LCCKILP!  PRCCECLBE  BYTE: 

CECLARE  PCINT  ADDRESS, 

(HEBE  84SEC  PCINT.II  BYTE; 


HATCH:  FFQCEOURE  BYTE: 
DECLARE  J 3YTE: 

OC  J-1  TO  ACCOM; 
IF  HERE(J  - 

ENC: 

RETURN  TRUE  : 

ENO  match; 


1)  <>  ACCL'M(J)  THEN  RETURN  FALSE: 


POINT=CFFSET(ACCUMI*  .TABLE: 

CC  1*1  TC  KCRC$CCUNT(ACC0M) ; 

IF  MATCH  THEN  RETURN  I; 

PCINT  * POINT  ♦ ACCOM; 

. END; 

FcTLRN  FALSE: 

EKO  LCCKIUF : 

RESERVECIHC'D:  fpgcecure  byte; 

/•  RCTURNS  THF  token  number  OF  A RESERVED  WORD  IF  THE  CCNTEKTS  0= 
THE  4CCUMULATCR  IS  A RESERVED  WORD,  OTHERWISE  RETURNS  ZERO  */ 
CECLARE  VALLE  BYTE; 

CECLARE  NUH3  BYTE: 

IF  ACCLM  > MAXFLEN  THEN  RETURN  0: 

IF  (NLM6:*T0KENSTABLE(ACCUMn*0  THEN  RETURN  0: 

IF  (VALU£:»L0CK$UPI*0  THEN  RETURN  0: 

RETURN  (NUHB  ♦ VALUE): 

ENC  RESERVECAWCRC: 

GETiTCKEN:  FRCCECURE  BYTE: 

ACCLrM*0  ; 

CALL  GET9KC»EL6NK; 

IF  CHAR.gUCTE  then  return  GETtLITERAL: 

IF  CELIHITCR  THEN 
CC; 

CALL  PL7; 

RETURN  PERICC: 

END: 

CC  FOREVER; 

CALL  PUT: 

IF  EKC1CF3T0KEN  THEN  RETURN  INPUTASTR; 

END;  /»  CF  CC  FOREVER  •/ 

EKO  CETSTCKEK; 

SCANNER:  PRCCECLPE: 

CECLARE  CHECK  BYTE: 

CC  FCFEVER; 

IH(TCKEK:«GET$TOKrNI  • INPUT$STR  THEN 

IF  (CHECK:-3EScRVE0$WQR0)  <>  0 THEN  TOKEN-CHECK; 

IF  TCKEN  <>  0 then  return; 

CALL  FRINTAERRCR  ( • ie • ) : 

OC  WHILE  NOT  EI.3»CF*T0KEN; 

CALL  GETtCHAR; 

ENC; 

FKOl 

ENO  scanner; 

FRINUACCLM:  PFCCEOURE: 

<ccuM(AccuH*ii.' 1' : 

call  PR  INT  I .RtACC'JMI  ; 

EKO  PRINTIACCLH; 

PRINTtNUMBEP:  FFCCETt.REINUMB)  : 

declare iNire, I ,CNT ,Ki  byte,  j oata(ioo,io>: 
cc  1*0  TO  l; 

CKi*c ; 

oc  while  NUHB  >•  (<:>j(in; 


CKO 


NUM8«NuMa  - k: 

CM'CNT  ♦ l: 

ENC; 

call  FRINTCHAR<<3‘  ♦ cnt); 

ENT); 

CALL  PR INTCHARI •O'  ♦ NUMB  I; 
FRlMTiKLreER; 
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0C439  1 

CC440  1 

0C441  1 

88UI  \ 


0C44«  1 

0C4S0  I 

00451  2 

00452  2 

0C4S3  3 

004  S4  3 
004SS  3 

0C456  3 

0C4S7  3 

0C4SC  3 
004S9  2 

0C460  I 
0C461  1 

0C462  1 

004«3  1 

0C464  1 

OC46S  I 
0C466  1 

0C467  1 

0C468  1 

0C46^  1 

00470  I 

00471  1 

0C472  1 

0C473  I 
00474  1 

CC475  1 

00476  1 

00477  1 

00478  I 

0C479  1 

C0480  1 

0C481  1 

00482  1 

CC483  1 

00484  I 
0C465  1 

0C486  1 

00487  I 
0C488  1 


00445  I 

00446  1 

0C4S7  1 

CC4S6  1 
00449  2 

00500  2 

00501  2 

0C5O2  2 

0C503  2 

0C504  1 

0C505  1 

00506  2 

OC5C7  2 
0CS08  1 

0C5C9  1 

CCSIO  2 

00511  2 

00512  2 

00513  1 

00514  1 

00515  2 

00516  2 

0C517  I 
00518  1 

00514  2 

00520  2 

0CS21  1 

00522  1 

00|23  2 

00524  2 

00525  2 

00526  1 

00527  1 

00528  2 

C0S24  2 

00530  2 

i 

00533  2 

00534  2 

00535  I 

1CS36  1 

PiJ  I 

Pli 

0CS43  2 

00544  1 

nixi  \ 

OC547  2 

00544  ? 


INITISCANNEP:  FRCCEOURE; 

/*  INITIALIZE  FOR  INPUT  - OUTPUT  OPERATIONS 
CALL  MOVE  (.•C8L'.  IMtAOOR  *9,  31; 

CALL  FlLLdNAAliUR  ♦ 12,3,51; 

CALL  open: 

CALL  MOVE ( INADCR ,.0UTPUT$FCB,9 I; 
QUTPUTJENO»(CUTPUTtPTR:».OUTPLT*6UFF  - 11  + 128; 
CALL  -nrkE  ; 


Call  -««ke  ; 

CALL  GEUCFAH;  /*  PRIME  THE  SCANNER  •/ 

CO  while  Cfar  • •»• ; 

IF  NEXTCHAR  - *L*  THEN  L 1ST* INPUT-NOT  LISTJINPUT; 

else  if  char  Then  seo*num«  not  seo»num: 

ELSE  IF  CH4R  " "P*  THEN  PRlNTtPROO  « NOT  PRlNTtFRCDl 
ELSE  IF  CHAR  « *T'  THEN  PRINTFTOKEN  = NOT  PRINTITCKEN; 
call  CET*CHAR; 

CALL  getsnosblank; 

END; 

END  INlTiSCANKER : 

/*  • • • eNO  OF  SCANNER  PROCEDURES  • * • •/ 

/*•»••  SYMBOL  table  CECLARATIONS  » » * */ 


CUR JSYM 

SYMBOL 

SYHBCL4A00R 

NEXTISYMJENTRY 

HAShlPTR 

displacement 

HASHIMASK 

'ITVFc 

OCCURS 

ACCR2 

PJLENCTh 

SJLENGTH 

level 

LOCATION 

REl*IC 

STARTJNAME 

MAXtlClLEN 


ADDRESS,  /‘SYMBOL 

BASED  CURiSYM  BYTE, 
based  CURtSYM  ADDRESS, 
BASED  NEXTJSYM  ADDRESS, 
ADDRESS, 


/‘SYMBOL  BEING  ACC£SSEC‘/ 
BYTE, 

ADDRESS, 


•12*  , 
•3FH‘, 
•2’, 
Ml', 
•4', 
•3', 

•3'l 
•10'  , 
•2', 
•5', 
•11*  , 

• 12'  ; 


/*1  LESS‘/ 


TYPE  LITERALS  ‘‘‘‘‘‘‘‘/ 


1 

1 

DECLARE 

SFQLENTIAL 

LIT 

•1' 

1 

RANCCM 

LIT 

•2* 

1 

SEOIBELATIVE 

LIT 

•3' 

1 

VARIABLEILiNG 

LIT 

•4* 

1 

GFCUF 

LIT 

•6* 

1 

CCMP 

LIT 

•21 

/*  ‘ » • SYMBOL  TABLE  ROUTINES  * » * */ 

IMTISYMBOL:  PROCEDURE; 

CALL  fill  IFREESSTCRAGE.O, 1301 ; 

/•  INniALlZE  HASH  table  AND  FIRST  CCLLISICN  FIE 
NEXT*SYP»FPEE*STCRAGE+128; 

NEXT»SVM»ENTFY=0; 

ENO  INlTiSTMeCL; 

GET*P»LENGTF : FRCCECURE  BYTE  I 
FETURN  SYM8CHP*LENGTH1  ; 

ENO  CET*P»LENGTh: 

SEYJACORESS;  PFCCEOUREtAOOR); 

OECLAPE  ACCR  ACCRESS; 

SYMBOL  IA0CR(LCCATIQN)>A00R; 

ENO  SETtAOORESS; 

GETtAOORESS:  PRCCEOURE  ADDRESS; 

FETURM  SYM8CLJA0DRIL0CATI0N) ; 

END  C-ETJADCRESS; 

GETtTYPE:  PROCEDURE  BYTE: 

RETURN  SYMHCL(S*TYP£>: 

ENO  GETJTYPE; 

SETITYPE:  PPOCEOL'REl  TYPEI  : 

ceclape  iypf  byte: 

STMB0L(£»1YPEJ«TYP£: 

ENO  SETITYPE: 

orittpe;  prcceclpeitypei: 

CECLAPE  TYPE  BYTE: 

STMBCL I SITYPEI-TYPE  OR  GETITVPE: 

END  CRITYPE : 

CETILEVEL:  FPCCECURE  BYTE; 

RETURN  SHR(SYM8CLILEV£L),4l: 

END  CETtLEYEL : 

SETILEVEL!  PFOCECURE  ILVLI; 

CECLAPE  LVL  BYTE; 

STMB0LllEVELl>SHL(LVL,4l  CR  SYMBOLILEVEL I : 

ENO  SETILEVEL : 

GETIOECIMAL:  PRCCEOURE  BYTE; 

RETURN  SYMeCHLEVeLl  AMO  OFH; 

ENO  CEIICECIMAI; 

SETKECIMAl:  PRCCEOURE  lOECI; 

CECLAPE  crc  eYTE; 

SYMBOL (LEVEL  I • CEC  OR  SYMBOL  I LEVEL M 
EMI  RFlirpr  iMAi  : 
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SETSSSLENGIh:  PRCC  EOURE  (HOUtLONC) ; 
CECLAPE  t-CkiLUNG  AOORcSS: 
:>MaOLtACCR(SALENGTH)  < HCMALONGi 
esO  SETtSiLENGTf-; 

getisslengtk:  erccedure  address; 

RETURN  SYNECLAADCRISSLcNGTHt : 

END  EETSSSLENGTH; 


SETSA00R2:  FRCCECURE  (ACORI; 

CECLARE  ACER  ADDRESS; 
SVHeCLtACCR(ACCR21>AC0R; 

EKD  SETSADCR2; 

GET1AOCR2:  FRCCsCURE  ADDRESS: 
RETURN  <YReCLtADOR(AOOR2i : 
END  CETSAOGR2; 

SETACCCURS:  PRCCEDURE< CCCURI ; 
CECLAPE  OCCUR  BYTE: 

syh80L(cccups)=cccur; 

END  SETACCCLRS; 

GETiCCCURS:  PRCCEDURE  BYTE; 

RETURN  SYFECL  (OCCURS); 

END  GETJCCCLRS : 


/*  * • » PARSER  DECLARATIONS  « * • */ 

DECLARE 

INT  LIT  *63',  /*  CODE  FOR  INITIALIZE 

SCD  LIT  '66*,  /*  CODE  FOR  SET  CEDE  ST 

P5TACKSI2E  LIT  'SO*.  /•  SIZE  OF  PARSE  STACK 

STATtSTACK  (PSTACKSIZE)  BYTE,  /*  SAVED  STATES  »/ 

VALLE  (PSTACKSIZE)  ADORESSt  /»  TEMP  VALUES 

VARC  (51)  BYTE,  /*TEMP  CHAR  STORE*/ 

ICiSTACK  (10)  ADDRESS  INITIAL  (0), 

ICASTACKAPTR  BYTE  INITIAL(D), 

FCLCJLIT  BYTE. 

RESTIFOLOILIT  (ACCUMSLENG)  BYTE, 

liCLClSYM  ADDRESS, 

PEfiOINUlLl  TERAL  byte  INITIAL(FALSE)  , 

PENCINGILITJIO  ADDRESS, 

REDEF  BYTE  INITIAL  (FALSE), 

RFDEFIONE  ADDRESS, 

REDEFSTkO  ADDRESS, 

TEMFiFOLO  ADDRESS, 

TEMPJTWO  ADDRESS, 

COMPILING  BYTE  i.NITIALITRUE)  , 

SP  BYTE  INITIAL  1255), 

MP  BYTE, 

MPPl  BYTE, 

NCLCCK  BYTE  INITIAL(TRUE) , 

(I,J,K)  BYTE,  /•IHDICieS  FOR  THE  PARSER*/ 

STATE  BYTE  INITIAL (STARTS ) I 

/»  • * » PARSER  routines  •*»•»/ 

BYTEICUT:  PROC ECURE ( CNSSB YiE) ) 

/»  THIS  PRCCEDURE  WRITES  ONE  BYTE  OF  OUTPUT  ONTO  THE  DISK 
IF  REQLIREC  THE  OUTPUT  BUFFER  IS  DUMPED  TO  THE  DISK  »/ 
CECLARE  CNEIBYTE  BYTE) 

IF  (OUTFUT  JFTR:  = CUTPUTSPTR  ♦ U>  OUTPUTtENC  THEN 
DC: 

CALL  HRITESOUTPUT; 

CUTPLTJPTR*. OUTPUT* BUFF; 

END; 

CUTPUT»CHAH=CNE*8YTE; 

END  BYTEtCLl; 

STRINGJCUT:  PRCCEDURE  ( AODR, COUNT ) : 

DECLARE  (ACCR,  I.COUN’’)  ADDRESS,  (CHAR  BASED  AODR)  BYTE; 

DC  I»1  TC  CCUNT; 

call  6YTc*0UT(CHAR)  ; 

ACCR=ACOR+l: 

END; 

END  strIngjcut: 

ACCflJCUT;  FFCCECURE(ADOR) ; 

CECLARE  ACER  ADDRESS: 

call  byte*clt(ldi>(aoor) ) ; 
call  byie»cuT(migh(ador) ) ; 

END  ADCRSCLI; 

FILL*STRIKG:  PRCCEDURE ( COUNT, CHAR ) ; 

CECLARE  (1, CCUNT)  ADDRESS,  CHAR  BYTE; 

CC  I»l  TO  CCUNT; 

call  8YTE*0UT(CHAR) ; 

END: 

END  FILLiSTFINC: 

STARTJINITIALIZE;  PRCC EDURE( AOOR ,CNT) ; 

CECLARE  (ACCR,CNT)  ADDRESS; 

CALL  BYTECL7(INT): 
call  AGCRICLKAODP.J ; 

CALL  A*CB»CUT(CNT) : 

END  START*  JM  TIAUZE  : 

BLILCISYMBCl : PRCCEDURE ( LEN) : 

CECLAPE  LEN  byte,  TEMP  A(50R£SS; 

1EMP«NERM£YH  : 

IP  (NE XT *SYM:» .SYMBOL (LEN: *LEN*OISPL ACEMENT  )) 

> PAXIPEMCRY  THEN  CALL  F ATAL » ERROR (' ST •) ( 

CAIL  FILL  (UMP.C.LEN); 

END  euiLOtSYKBCL; 


LIT  *63', 

LIT  '66*, 

LIT  *30' 

(PSTACKSIZE) 
(PSTACKSIZE) 


151)  BYTE,  / 

(10)  ADDRESS  INIT 

BYTE  INITIAL(O), 

BYTE, 

(ACCUMSLENG)  BYTE, 
ADDRESS, 

BYTE  INlTIAUFALSE) , 
ADDRESS, 

BYTE  INITIAL  (FALSE), 

ADDRESS, 

ADDRESS, 

ADDRESS, 

ADDRESS, 

BYTE  iNITIAL(TRUE) , 

BYTE  INITIAL  1255), 


/*  CODE  FOR  INITIALIZE  •/ 

/*  CODE  FOR  SET  CCCE  START  »/ 

. /•  SIZE  OF  parse  stacks*/ 

BYTE,  /*  SAVED  STATES  »/ 

ADDRESS,  /»  TEMP  VALUES  */ 


/♦TEMP  CHAR  STORE*/ 
INITIAL  (0), 


INITIAL(TRUE) , 

/•IHDICIES  FOR  THE  PARSER*/ 
INITIAL(STARTS): 
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0C655  1 

0C6S6  1 

0C657  2 

00656  2 

00659  2 

OC660  2 

00661  2 
0C662  2 

0C663  2 

0C666  2 

0C665  2 

0C666  I 
00667  2 

0C668  2 

00669  3 

00670  2 

0C671  2 

00672  2 

0C673  3 

00679  3 

00675  9 

00676  9 

00677  9 

C0678  9 

0C679  9 

C0680  5 

QC681  9 

0C682  9 

0C683  3 

00689  3 

C0685  3 

0C686  9 

00667  9 

0C688  9 

00609  5 

CC690  5 

0C651  t 
0C692  5 

0C693  9 

0C699  3 

0C695  3 

0C696  2 

0C697  I 
0C69S  1 

0C699  2 

CC700  2 

0C701  2 

0C702  2 

0C703  2 

00709  2 

00705  2 

0C7C6  2 

0C7C7  2 

CC7C8  1 
CC709  I 
0C710  2 

0C711  2 

0C712  2 

0C713  2 

0C719  3 

0C715  3 

00716  2 

0C717  2 

CC7I8  1 
0C719  1 

00/20  2 
OC721  2 

0C722  1 

0C723  1 

0C729  2 

0C725  2 

OC726  2 

0C727  1 

CC720  1 

0C729  2 

OC730  2 

0C731  2 

00732  3 

0C733  3 

0C739  3 

0C735  2 

CC736  2 

00737  2 

0C738  2 

0C739  3 

0C790  3 

0C791  9 

0C792  9 

00793  3 

00799  3 

0C795  3 

0C796  3 

OC797  9 

CC798  9 

CC799  3 

OC750  2 

00751  2 

OC752  2 

0C753  2 

0C759  2 

0C755  1 


match:  procedure  aporess; 

/*  CHECKS  AN  JOENTIFIER  TO  SEE  IF  IT  IS  IN  THE  SYMBOL 
TABLE.  IF  IT  IS  PRESENT,  CUKtSYM  IS  SET  FCR  ACCESS. 
CTFERWISE  A NEW  ENTRY  IS  MADE  ANO  THE  PRINT  NAME 
IS  ENTERED.  ALL  NAMES  ARE  TRUNCATED  TO  MAXSlOiLEN*/ 
DECLARE  (POINT, COLLISION  BASED  POINT)  ADDRESS, 
IHCL0,I)  BYTE: 

IF  VAROMAKJIOSLEN 

THEN  VARC  « MAX$ID*LEN! 

/«  IRLNCATE  IF  REQUIRED  »/ 

HOLD  • C: 

CC  I»1  T(5  VARC:  /*  CALCULATE  HASH  CODE  */ 

HCLO-HCLO  + VARCm  ) 

END: 

PCINT'FREEJSTORAGE  ♦ SHLdHOLD  AND  HA3HAMASK)  , 1 ) : 

CC  forever; 

IF  C0LLISI0N«0  THEN 
DC; 

clrasym.ccllisicn-nextssym; 

CALL  BUlLOiSYMBOL (VAPC) ; 

/•  LOAD  PRINT  NAME  •/ 

symbol(p*lengthi>=varc: 

CO  I-  - I to  VARC: 

SYH8CL(START»NAME  ♦ I)=VARC(I): 

END; 

RETURN  CURSSYM; 


CLRiSYP*CCLLISIGN: 

IF  (HOLO:=GETtPtLENGTH)»VARC  THEN 
CC: 

1=1: 

DO  WHILE  SYMBOL! STARTiNAME  ♦ 1)=  VARC(I): 

IF  ( I: =I  + 1)>HOLO  THEN  RETURN  ( CUR J SYM  : = C0LL I S ION ) ; 
END: 

ENC: 

END: 

point=ccllisicn: 

ENC: 

END  match: 

ALLOCATE:  FFCCEDURE( BYTESSREO)  ADDRESS: 

/*  THIS  ROLTINE  CONTROLS  THE  ALLOCATION  CF  SPACE 

IN  The  memcry  of  the  interpreter.  •/ 

CECLARE  (HOLC.BYTESSREQ)  ADDRESS: 

HCLC=N£XTJAVAiLAELE; 

IF  (NEXT*AVAIlABL£:=NEXT$AVAILABLE  h BYTES$REQI>HAX» INTIMEM 

then  call  fatalserrori 'MO* ) : 

RETURN  HCLC: 

END  ALLCCAIE: 

SETJREDEr:  f RCCEDURE < CLC.NEW) : 

DECLARE  (CLC.NEWl  ADDRESS: 

IF  (RECEF:«NOT  REOEFl  THEN 

cc: 

RECEFJCNE«OLD: 

REC£F1TWC«N£W: 

END: 

ELSE  CALL  FR INTSERRCR ( • R1 ' ) : 

END  EETARECEF; 

SETICURISYM:  PROCEDURE: 

CUR*3YM=IC!STACKI lOASTACXtPTR) : 

END  SET JCURASYM : 

STACK JLEVEL  i FRCCEDURE  BYTE: 

CALL  SETTCLRJSYM: 

RETURN  GETILEVEL: 

END  STACKALEVEL; 

LCACJLEVEL:  PPCCEDURE: 

declare  HCLC  ACCPESS: 

LCACtPECEFSADDR:  PROCEDURE: 

CLRSSYM-REOEFtCNE: 

HCLD*GE7tA00RESS: 

END  LCACSRECEFtACCR: 

IF  IDISTACKOO  THEN 

oc: 

IF  VALLE(SP-21 «0  THEN 

00  : 

CALL  SETICURSSYM; 

HCLD«GtTiS»LENGTH  ♦ GETiAODRESS: 

ENC: 

ELSE  CALL  L CAC IREDEF SACDR : 

IF  UCASTACKSPIP  : «ID»STACK»PTR+1)>9  THEN 
DC: 

CALL  PfiINT»£RROR( 'EL' 1 I 
IDASTACKiPTR-9: 

ENC: 

END; 

ELSE  HCLD-NEXTJAVAILABLE: 

IDtSTACK(ICA3TACKlPTR)*VALUE(MPPl); 

CALL  SETKLPISYM; 


CALL  SETSACCPcSSIHOLO) : 

END  lcaoalevel: 


I 


0C655  1 

0C6S6  1 

0C657  2 

00658  2 

00659  2 

I 

0C662  2 

0C663  2 

0C666  2 

0C665  2 

0C666  I 
00667  2 

0C66B  2 

0066S  3 

CC670  2 

0C671  2 

00672  2 

0C673  3 

00674  3 

00675  4 

00676  4 

00677  4 

C0678  4 

0C679  4 

C0680  5 

00681  4 

0C682  4 

OC683  3 

00684  3 

00685  2 

00686  4 

00667  4 

0C688  4 

00687  5 

CC690  5 

0C691  t 
0C6S2  5 

00693  4 

0C694  3 

0C695  3 

0C696  2 

0C697  1 

0C698  1 

OC699  2 

CC700  2 

0C701  2 

0C702  2 

OC703  2 

00704  2 

00705  2 

0C7C6  2 

0C7C7  2 

CC7C8  1 
CC709  1 

0C710  2 

0C711  2 

00712  2 

007  13  2 

00714  3 

00715  2 

00716  2 

00717  2 

00718  1 

0C719  1 

OC720  2 

00721  2 

00722  1 

00723  1 

00724  2 

00725  2 

00726  2 

00727  1 

00726  1 

00729  2 

00730  2 

00731  2 

00722  3 

0C723  3 

0C734  3 

0C735  2 

00736  2 

00737  2 

00728  2 

00729  3 

00740  3 

00741  4 

00742  4 

00743  3 

00744  3 

00745  3 

00746  3 

00747  4 

00748  4 

CC749  2 

00750  2 

00751  2 

00752  2 

0C753  2 

0C754  2 

0C755  1 


M6TCh:  PROCECU9E  ADDRESS: 

/•  CHECKS  AN  JDENTIFIER  TO  SEE  IF  IT  IS  IN  THE  SYMBOL 
TABLE.  IF  IT  IS  PRESENT.  CUR9SYM  IS  SET  FCR  ACCESS. 
CTFERWISE  a NEW  ENTRY  IS  MADE  AND  THE  PRINT  NAME 
IS  ENTERED.  ALL  NAMES  4RE  TRUNCATED  TO  HAX*10$L£N»/ 
DECLARE  (POINT, COLLISION  BASED  POINT!  ADDRESS, 

(HOLD, I)  BYTE: 

IF  VAROMAKI  IDILEN 

TFEN  VARC  > MAXSIOSLEN; 

/•  trlncate  if  required  »/ 

cc  i»i  t(5  VARC:  /*  calculate  hash  code  */ 

HOLD-FCLD  ♦ VARCU!; 

END: 

PCINT*FREEtSTORAGE  * SHLdHOLD  AND  HASHAMASK)  , 1)  : 

DC  FOREVER: 

IF  COLLISION-0  THEN 
DC; 

CLR*SYM,CCLLISICN«NEXT*SYM; 

CALL  Bu1lD*SYM80L(VAPC1  : 

/•  l-OAU  print  NAME  •/ 

SYMBOL(PJLENGTH)*VARC: 

CO  I-  « I TO  VA  RC : 

SYHBCL(START*NAME  4 I).VARC(II: 

END; 

RETURN  CURSSYM: 


clr»syp=ccllisicn: 

IF  <HOLO:=GETSP»L£NGTHI»VARC  THEN 

cc: 

l»i: 

DO  WHILE  SYMBOL! STARTANAME  4 1)»  VARC(I): 

IF  1I:»I41)>HOLO  THEN  RETURN  ( CUR t SYM  : = COLL I S ION! ! 
END: 

ENC: 

END: 

pcint-ccllisicn: 

end: 

END  match: 

ALLOCATE:  FFCCEDURE! BYTESAREQ)  ADDRESS: 

/*  THIS  ROLTINE  CONTROLS  THE  ALLOCATION  CF  SPACE 
IN  TFE  MEMORY  OF  THE  INTERPRETER.  »/ 

DECLARE  IHOLD.BYTESAREQl  ADDRESS: 

FCLC=N£XT1AVAILA8LE: 

IF  (NEXT$AVAILABL£:=NEXT»AVAILABLE  4 BYTES$REQI>MAXJ INTIMEM 
TmEN  CALL  EATALAERROR! 'MO* 1 : 

RETURN  FCLC: 

END  ALLCCAIE: 

SETAREDEr:  FRCCEDURE (CLC.NEW) : 
declare  (CLD.NEWl  ADDRESS: 

IF  (RECEF:»NOT  REDEFl  THEN 
DC; 

RECEFJCNE*OLD: 

RECEFATWC»N£W: 

END: 

ELSE  CALL  FRINTAERRCR! 'Rl* I : 

END  SETARECEF; 

SETKURASYM:  PROCEDURE: 

CURASYM-ICSSTACKI IDASTACKAPTR) : 

END  setacurasym: 

STACKILEVEL  : FRCCEDURE  BYTE; 

CALL  SETACLRJSYM; 
return  CETJLEVEL; 

END  stackalevel; 

lcacalevel:  ppccedure: 
declare  HCLC  AOORcSS; 

lcacapecefaacdr!  procedure: 
clrasym»reoefacn£: 

HCLD«G6TAA00RESS; 

END  lcacarecefaaccr; 

IF  IDASTACKOO  THEN 
DC: 

IF  VALLEISP-21 »0  then 
DC ; 

CALL  seticurasym; 

HCLD-GtTASALENGTH  ♦ GETAAODRESS: 

ENCj 

ELSE  CALL  L CACAREDEF AADDR : 

IF  ( ICASTACKAPIP  : «IDASTACKAPTR41|>9  TFEN 

cc: 

CALL  PRINTAERROR( ’EL' 1 ; 

1DASTACKAPTR>9; 

ENC; 

END: 

FLSE  FC10»NEXTAAVAILA8LE: 

IDASTACKI  ICiSTACKlPTR)«VALUE(MPPU  : 

CALL  SETICLPASYM; 

CALL  S€TAACCRESS(HOLO) : 

END  lcaoalevel: 
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REOEFlURSVHUEt  PROCEDURE; 

DECLARE  HCLC  ADDRESS. 

(CEv.,K,J.SIGNI  BYTE; 

JF  REDEF  TFEN 
CD; 

IF  RECEF»TWC=CUR$SYM  THEN 
DC: 

HCLD»GETtS*LENGTH; 
CUR»SYP»REOEFtaNE : 

IF  HOLOGETtSJLENGTH  THEN 

cc: 

CALL  PRINT$ERROR( 'R2' ) ; 

hclo«get»s»lehgth; 

CURiSYM-REJEFtCNE; 

CALL  setssflengthiholoi ; 

EAO: 

BEC£F»FALSE; 


00812  3 

CC813  3 

OC81A  A 
0C815  3 

0C816  3 

0C817  3 

0C818  A 
CC819  A 
CC820  3 

0C821  3 

0CB22  A 
0CB23  A 
00E2A  3 

OC825  3 

00826  3 

CC827  3 

0C828  3 

CC829  A 
CC830  A 
OC831  A 
0C832  S 
OC833  5 

0083A  A 
OC83S  A 
0CE36  3 

00837  3 

0C838  3 

00839  3 

OC6AO  3 
0C8A1  3 

0C8A2  3 

008A3  2 

OCSAA  2 
008A5  1 

CC8A6  I 
0C8A7  2 

CC8A8  2 
CC6AS  2 
CC8S0  2 
0C8S1  2 

0CE!2  2 

0CES3  2 
OCeSA  3 


ocsse  2 

(CB59  2 

CCS60  1 


ELsI  IF  PENOINGtLITERllL'O  THEN  RETURN; 

IF  PENCINGILITTICOIOJSTACKSPTR  THEN  RETURN; 

CALL  START  UNIT  I ALI2E(GET$AD0RESS,H0LC:»GET*S$LENCTM; 
i-F  P£NCINGILITERAL>2  THEN 

xc  * 

’ IF  PEN0INGSLITERAL«3  then  CHARG'D': 

ELSE  IF  PENDINGSL1T£RAL*A  THEN  CHAR*'  •; 

ELSE  CI-AR-CUCTE: 

CALL  FILLASTRINGIHOLD.CHAR) ; 

END; 

ELSE  IF  PEKClNGtllTERAL  • 2 THEN  . 

CC; 

IF  HCIC  <*  HGLDJLIT  then 

CALL  STRlNGiOUTI.RcSTtHOLOALIT.KCLCI; 

ELSE  DC; 

CALL  STRINGAOUTI .RESTJHOLCJLIT.HCLDSLIT); 

CALL  FILLJSTRINGIHCLO  - (HOLUALIT  + II,'  'I; 

ENC; 

END; 

ELSE  DCS 

/*  tfe  number  HANDELER  */ 

DECLARE  (DEC, MINUS AS IGN , I , J ,L IT ACEC , NALENGTH, 

NUMA8EF0RE.NUMAAFTER,  TYPEI  8YTE,  ZONE  LIT  ' lOH' ; 

if((type!»getatypeki6I  or  (type>20)  then 

CALL  PRINTAERROR 1 ' NY' 1 ; 

NALENCTH=G£TASALENGTH; 

cec*getaoecihal; 

MIMSJ516N*FALSE: 

IF  RESTAHGLCALIT*'-'  then 
DC; 

N1NUS1SI6N»TRUE; 

j*l ; 

^ NC  * 

ELS^  IF  RESTAHOLOALIT*'*'  THEM  J=l; 

ELSE  J*C; 

L nACEC>o: 

CO  1*1  TO  holcalit: 

IF  hOLOALITIIl*','  THEN  LITADEC*!; 

ENC;, 

IF  L1T1CEC*0  THEN 
DC; 

RUMS3EFCRE*RESTAHOLOSLIT-J; 

NUMAAFTER-0; 

ENC: 

ELSc  CC; 

FLMABEFCRE-LITADEC  -J-l: 

NUKAAFTER'PESTAHCLDAL IT  - LITADEC; 

ENC: 

IF  (I;*NALENGTH  - OECKNUHABEFORE  THEN 
call  PRINTAERROR! ' SL' 1 : 

IF  I3NUMABEFQRE  THEN 
00: 

I*I-NUH$3EFQRE : 

IF  MINUSASIGM  THEN 
CC: 

i-i-i: 

CALL  BYTEAOUTCO'  ♦ 20NEI  : 

END; 

CALL  FILLASTRINGd.'O'l; 

ENC; 

ELSE  IF  MINUSASIGN  THEN  RESTAHOLCAL IT ( J I »R£ST AHCLOAL IT ( J I aZONE ; 
CALL  STRINGAOUTI.RESTAHOLOALIT  ♦ J,  NLPABEFORE): 

IF  NUPAAFTER  > DEC  THEN  NUMAAFTER  » CEC; 

CALL  STRINGAOUTI.RESIAHOLOALIT  ♦ LITADEC,  NUPAAFTERl: 

IF  (I:»CEC  - NUMAAFTERIOO  THEN 
CALL  FILLASTRINGlIf'O'l; 

END; 

FENCINCILITERAL’O: 

END  REDEFACRAVALUE ; 

RE0LCE1STACK I FFCCEOURE; 

DECLARE  HClCALENGTH  ADDRESS: 
call  SETACLRASYM; 

CALL  recefscravalue; 
holcilength*cetasal=ngth: 

IF  GETAIYPE  > 128  THEN 
CC: 

holduength*holcalength  • getaoccurs; 

Eso: 

lOASTACFAPTR-inAlTACKAPTR  - 1; 

CALL  ScTACLRASYMi 

CALL  'ETASILF.N&THIGETASALENGTH  ♦ hOLOALENGTHl: 
call  5E1A1YF£1CRCUPI; 

ENC  recuceastack; 


i 


0C8S2  3 

0C8‘S3  3 

0C894 
0C8S5  9 

CCE96  3 
CC897  2 

0C898  2 

CC89S  2 
C0900  2 

0C901  2 

CC902  2 

00903  2 

CC909  1 

CC9C5  I 
CC906  2 

00907  2 


OC909  2 

CC910  2 

CC911  1 

0C912  1 

0C913  2 

CC919  2 

CC915  2 

CC916  2 

0C917  2 

0C918  2 

CC919  2 

CCS20  2 
CC921  2 

OC922  2 

0C9  23  2 

CCS29  2 
CC925  2 

0C926  2 

CC927  2 

0C92S  2 

0C929  2 

CC930  2 

pip  I 

CC939  2 

QC935  2 

I 


ENCtCFtRECCPO:  P80CE0URE; 

DC  WhlLE  IClSTACKiPTROO; 

CALL  recuceastack; 

END; 

Call  se7»clp»svm; 
call  receficrsvalue: 

lOlSTACK.C : 

1 Ef<P»HCLD»AL  LOCATE  tTEMPtTWC:»G£TtSALENGTH  I i 
EKD  ENDAOEtRECOPO: 

CCNVEPTAIATEGEP:  PROCEDURE.* 

DECLARE  INTEGER  ADDRESS; 

1NTEGEP>0: 

CC  I » I TC  VARC; 

INTEGEP-SHL  ( INTEGER,  3I  + SHL<  INTEGER.  I ) + (VARC(n-'0' I ; 
vAciici  SPI  -integer; 

END  CCNVERTIINTEGER; 

CRAVALUE:  PFOCECLRE t PTR .ATTRI 8 ) ; 

DECLARE  PTR  BYTE,  ATTRIB  ADDRESS; 
value; PTP)>VALUE(PTR)  OR  ATTRiB; 

END  CRIVALLE; 

BULCSFCe:  FPCCECURE; 


CECLARE  TEPF  ADDRESS.* 

.DECLARE  euFFERUU  BYTE,  (CHAR,  I,  JI  BYTE: 

CALL  FILLUEUFFEh,*  ',11); 

cd  khlLE  (J  < 111  AND  (I<  VARC); 

IF  (CFAfi  J-VARC(I  s-1  M )»=•  . ' THEN  J-8; 

Else'dc; 

eLFFER(J)-CHAR: 

j-j+1 : 

ENC  ; 

END; 

call  S£TAACCR2(TEHP:*ALL0CATE(16AI I : 
call  STARTlINlTlALIZEdtHP,  16)  ; 
call  BYTEACLT(O); 

CALL  STRING«CUT(. buffer, 11): 
call  f:ll$3Tfingi9,o} ; 
call  cravalle(Sp-i,i) : 

END  EUlLDAFCe; 

SETASIGN;  PFCCEOURE ( NUMB) : 

CECLARE  NUFB  BYTE: 

IF  GETlTYPE-17  THEN  CALL  SETSTYP E ( VALUE ( SP ) ♦ NUMB); 

ELSE  CALL  FRINTAERRCRCSG' I ; 

IF  VALUtlSPlOO  THEN  call  SETiSSLENGTHI  GETSStLENGTH  ♦ II; 
END  SETtSIGN; 

PlClANtLIZER:  FRCCEDURE; 

CECLARE  /*  WORK  AREAS  AND  VARIABLES  */ 

FLAG  BYTE, 

FIRST  BYTE, 

CCLNI  ACCRESS, 


fUFFER  (311  BYTE, 
SAVE  BYTE, 

REPITITICNS  ADDRESS, 


CECACCLNT 

CFAR 

I 

TEPP 

TYPE 


BYTE, 

byte  , 
BYTE  , 
BYTE  , 
ACORESS, 
BYTE  , 


* PASKS  » • «/ 

ALPHA  LIT  'O', 

AISCIT  lit  '2'  , 

AJN  in  'A'  , 

E C : T lit  ' 8 ' , 

NU.V  lit  '16*. 

NLMIEOn  LIT  '32', 

DEC  LIT  '6A' , 

SIGN  LIT  '128>, 

NUMSHASK  LIT  'IClOirilB', 

NLPAEUIPASK  lit  'lOOOOlOlB', 

S!Nu:;»PASK  LIT  'OOlOllllB', 

A»E$RASR  LIT  'lllUlOOfl', 

AINJHA'F  lit  '111010103', 

AJNAEARASK  LIT  '111000008', 

/•  TYPES  •/ 

NETYPE  LIT  '80', 

NTYPE  tlT  '16', 

SNTYPE  UT  '17', 

MYPE  LIT  '8', 

AETYPF  in  '72*. 

antype  lit  'S', 

ANETYPE  LIT  '73'  : 

INCICOLNT!  PROCEDUR£(SwnCH): 

CEClape  switch  byte: 
flag-flag  CR  Switch; 

IF  (CCUNT:-C0UNT  ♦ 11  < 31  THEN  BUFFER (COUNT  1 
END  INCICCLNT; 

CFECKJ  FRCCEDURE  (MASK)  BYTE; 

/•  Tl IS  ROUTINE  CHECKS  A MASK  AGINST  THE 
flag  BYTF  and  RETURNS  TRUE  ID  THE  FLAG 
FAC  NL  BITS  IN  COMMON  WITH  TrtE  MASK  */ 

DECLARE  MASK  BYTE: 

PE1UPN  NUT  ( (FLAG  AND  MACK)  <>  0); 

ENC  CHECK) 


PICSALLCCATF:  PftCC SCUREC AHT ) ADORESSt 
CECL<PE  AMT  ACDRESS: 

IF  (PA**INTSMEP:»HAX*INT$MEM  - AMTl  < NEXTIAVAILABLE 
ThfcN  CALL  FATALSERROR  ('MOM; 

FETURK  PAXlINTiMEM: 

END  PICIALLCCATE i 

/•  PROCEDURE  EXECUTION  STARTS  HERE  •/ 

COUNT, FI AG, CEC 1CCUNT*0! 

/*  CHECK  FCR  excessive  LENGTH  •/ 

IF  vARC  > >0  Then 
CO; 

CALL  fPlNTJERRCRI'PC  I; 

RETURN; 

END: 

/*  SET  FLAG  BITS  AND  COUNT  LENGTH  •/ 

I >1: 

CC  EHILE  K-VARC; 

IF  ICFAR:-VAKC<in»*A*  THEN  CALL  I NC ICCUNT  ( ALPF  A ) ; 

ELSE  IF  CHAR  ••8'  THEN  CALL  I NC ICOUN T ( AiEDl T I ; 

ELSE  IF  CHAR  »'9'  THEN  CALL  INC iCOUNT (NUMI ; 

ELSE  IF  CHAR  »'X*  THEN  CALL  I NCJCCUN'^  (A»NI  ; 

ELSE  IF  (CHAR«'S*1  AMO  (COUNT’Ol  THEN 

flag-flag  cr  sign; 

ELSE  IF  (CHAR  • 'VM  AND  (OECtCCUNT-OI  THEN 
CECRCCUNT-CCUNT; 

ELSE  IF(CHAR«*/'I  OR  (CHAR-'O'I  THEN  CALL  INC*CCUNT(FDIT 1 ; 
ELSE  IF 

(CHAR-'Z'I  OR  (CHAR-*,')  OR  (CHAR-***)  OR 
(CHAR-***1  OP.  (CHAR-*-*)  OR  (CHAR-'i'l  THEN 
CALL  INCRCOUNTINUMtEOIT); 

ELSE  IF  (CHAR-*.*)  ANC  ( OECACOUNT -0 ) THEN 


DC; 


ENC 


CALL  IN'CiCOUNT(NUHREDIT)  ; 
CECACCLNT-CCUNT: 


LS^  IF  ((CHAR-*C*)  AND  I VARC ( I H ) - * R * ) ) OR 
((CHAR-*0*)  AND  ( VARC  ( I»1  ) -*  B*  ) ) THEN 


DO; 


CALL  INCiCCUNTINUMiEDIT); 
CHAR-VARC  ( I : >14-1 ) : 

CALL  INCRCOUNTINUMtEOIT); 


ENC: 

ELSE  IF  (CHAR-*(*)  AND  (COUNTOO)  THEN 
CC; 

SAVE-VARC(I-l) ; 

REPITI TIONS-0; 

CC  WHILE(ChaR:=VARC( 1 :»I  + 1 1 )<>* I * ) 

REPITITiaNS-SHL(REPITlTI0NS,3)  ♦ 
SHLIREPITITIONS.I)  +ICHAR  -*0*I; 

ENC; 

CHAR-SAVE: 

CC  J-l  TO  P.EPITITICNS-l: 

CALL  INCtCOUNT(O) ; 

ENC; 

ENC; 

ELSE  CC: 

CALL  PRINTREF.RORI  *PC*  I ; 

RETURN  : 

ENC: 

I-I+I: 

ENC:  /*  ENC  CF  DC  WHILE  I<-  VARC  ♦/ 

/•  AT  THIS  FCTNT  THE  TYPE  CAN  BE  OcTERMINEC  *! 

IF  NOT  CHECKINUMREOITI  THEN 
CC; 

IF  CHECKINUMREORMASKI  THEN  TYPE-NETYPE; 

end: 

eLSE  IF  CHECK(NUHRHASK)  THEN  TYPE-MTYPE: 

ELSE  IF  CHECKISNUMRMASKI  THEN  TYPE-SRNRTYPE: 

ELSE  IF  CHECKINOTI ALPHA) ) THEN  TYPE-ATYPE: 

ELSE  IF  CHECKIARERMASK)  THEN  TYPE  -AETYPE: 

ELSE  IF  CHECKIARNRKASK)  THEN  TYPE-ANTYPE: 

ELSE  IF  CHECKIARNRERNASM  THEN  TYPE-ANETYPE: 

IF  TYPE-0  THEN  CALL  Pkl NT RERRCR I * PC  * ) : 

ELSE  cc: 

IF  PECEF  THEN  CUPRSYM-RECEFRTWO : 

ELSE  CLPtSYM  • hOLORSYM: 

CALL  SETRTYPE(TYPt) : 

CALL  SETRSLENGTHICQUNT  ♦ GETRSR LENGTH  I : 

IF  (TYPE  AND  6A)  O 0 THEN 
CC; 

CALL  S£TRA00R2( TEMP  :-PICRALLOCATE (COUNT  I I: 

CALL  STARTRINIT(ALUE(TEMP,C0UNT)  ; 

CALL  STRINGROUTI .BUFFER  ♦ I, COUNT); 

IF  OECSCOUNTOO  THEN  CALL  SETROEC 1 MAL  (COUNT-DEC  RCCUNT  ) ; 

ENO; 

ENO  R ICRANALIZER ; 

SETRFILERATTRIE!  PROCEDURE: 

DECLARE  TEMP  ADDRESS,  TYPE  BYTE: 

IF  CURISYMOVALUEIMPPII  THEN 
CC; 

TEMF-CLRRSYM: 

CLPRSYM’VALUEIMPPI) ; 

SYMCCLRAODR(RcLRIO) -TEMP; 

IF  NCT  (TEMP:-VALUE(SP-II  I THEN  CALL  PRINTRERROR  CNF*  I; 

ELSE  cc: 

IF  TEMF-l  THEN  TYPF-SFCUENTIAL : 

ELSE  IF  TEMP-15  THEN  TYPE-PANPOM; 

TLSE  IF  TEMP-9  THEN  T YPE -SEORRE LATI VE : 

ELSE  CC: 

CALL  RRINTREP.RORC  lA*  I ; 

TYPE-1 ; 

ENC: 

TNC; 


CALL  'ETRTYPE(TYPE): 
ENO  SETRFILERAI iRIB: 
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I 


01C82  2 

01063  3 

01064  2 

01065  1 

01066  1 

01067  1 


01090  2 

01091  2 


01C99  5 

CllOO  4 


011C6  2 

OIICT  1 
011C8  1 

01109  1 

CIllC  2 
01111  2 
01112  2 

01113  2 

01114  3 

01115  3 

01116  3 

01117  2 

01118  2 

C1119  2 

01120  2 
01121  2 
01122  2 
01123  2 


LCACUITERAL:  rCCCEOURE: 

CECLARE  1 eVTEi 

IF  PENCINCIUTcRAL  <>  0 THEN  CALL  PRINT6ERR0R  <*LE»); 
ELSE  CC  1 » 0 TO  VARC; 

hcloilitiii«varcU): 

end: 

EFO  LCAOSLITERALS 

CFECKlFCRtLEVEL : FROCECURE! 

DECLARE  NEV>»LEVEL  BYTE; 

HOLOISYP, CURAS YH* value (HP- 1 1 : 

CALL  SE T$ IE VEL(NE2$LEVEL: -value (HP-2)); 

If  NEkiLEVEL-1  THEN 
CO; 

IF  ICISTACKOO  THEN 

cc; 

IF  NOT  FlLEASECtENO  THEN 
CC  s 

CALL  SETAREOEFI lOASTACK, VALUE(HP-1I I : 
VALUEIHPl-l;  /•  SET  REDEFINE  FLAG  */ 

EKOi 

CALL  ENOAOFARECORD: 

EKO, 

ENOl 

ELSE  CC  kHILE  STACKALEVEL  >•  NEHALEVEL; 

CALL  reouceastack: 

ENC; 

END  checkafcralevel; 

CCOEAGEN:  f FOCECLRE ( PRODUCT  ION  1 ; 

CECLAPE  PFCCLCTION  BYTE; 

IF  PRINTAPRCC  THEN 

cc; 

call  CRLFi 

call  frintchar(pouno) ; 

call  FRINTANUMBERIPRODUCTIONl; 

end; 

cc  CASE  PFCCUCTION; 

/«  PRCOLCTIONS*/ 


01124 

3 

/• 

01125 

3 

01126 

3 

/♦ 

01127 

/• 

01128 

3 

01129 

3 

/• 

C1130 

3 

01131 

3 

/• 

01132 

3 

01133 

3 

/* 

01134 

3 

01135 

3 

/• 

01136 

3 

01137 

3 

/* 

01138 

3 

01139 

3 

/• 

0M40 

3 

0M41 

3 

/• 

CU42 

3 

01143 

3 

/* 

01144 

3 

01145 

3 

/• 

01146 

3 

/• 

01147 

3 

01148 

3 

/* 

01149 

a 

/• 

01150 

3 

01151 

3 

/• 

01152 

3 

01153 

3 

/• 

01154 

3 

01155 

3 

/* 

01156 

3 

/• 

01157 

3 

01158 

3 

/• 

01159 

3 

OllCO 

3 

/• 

01161 

3 

01162 

3 

/* 

01163 

3 

/• 

01164 

3 

01165 

3 

/• 

01166 

3 

01167 

3 

/* 

01168 

3 

01169 

a 

/* 

01170 

3 

01171 

3 

/* 

01172 

3 

01173 

3 

/* 

01174 

3 

01175 

3 

/« 

01176 

■a 

01177 

3 

/* 

01176 

3 

01179 

3 

/• 

C1180 

3 

01181 

3 

/» 

01162 

3 

01183 

3 

/* 

01184 

3 

01185 

3 

/• 

01166 

3 

/•  CASE  0 NCT  LSEO 

/•  1 <ipCGSAH> 

CCHPU  ING'EALSE: 

/♦  2 <1C-0IV>  ; 

/•  2 


. <T0-0IV>  <E-OIV>  <C-DIV>  PROCEDURE 

IDENTIFICATION  OIVISICN  . PRCGRAP-ID 
<C0MHENT>  . <AUTH>  <CATE>  <S£C> 


/A  NC  ACTICN  REOLUReO  */ 

3 <ALTh>  AUTHOR  . <COHMENT>  . 


: /»  NC  ACTICN  REOUIRED  •/ 

4 <EMPTY> 

: /»  NC  ACTION  required  »/ 

5 <CATE>  OATE-HRITTEN  • <COMMENT>  . 

; /♦  NC  ACTICN  RECUIRED  »/ 

6 <EHPTY> 

; /♦  NO  ACTICN  required  •/ 

7 <SEC>  SFCURITY  . <COHHENT>  . 

; NC  ACTICN  required  */ 

8 <EMPTY> 

: /*  NC  ACTICN  REQUIRED  •/ 

9 <CCMHENT>  <INPUT> 

1 /♦  NC  ACTION  REQUIRED  •/ 

10  <COMH£NT>  <INPUT> 

: /*  NC  ACTION  REQUIRED  •/ 

11  <E-OIV>  ENVIRONHENT  OIVISICN  . CONFIGURATION 

11  SECTICN  . <SRC-Cej>  <I-0> 

: /A  NO  ACTICN  required  •/ 

12  <SRC-OEJ>  SOURCE-COKPUTER  . <CCHHENT>  <CEBUG> 

12  OBJECT-COMPUTER  . <CCHMENT>  . 

; /*  NC  ACTICN  required  */ 

13  <r£SUG>  DEBUGGING  MODE 

cebugging-irue;  /•  sets  a scanner  toggle  •/ 

14  <EMPTY> 

: )'*  NO  ACTICN  required  *f 

15  <I-0>  : INPUT-OUTPUT  SECTICN  . FILE-CONTRCL  . 

15  <F!LE-CCNTR0L-LIST>  <IC> 

I /*  NC  ACTICN  REQUIRED  •/ 

16  <EMPTY> 

; /»  NC  ACTICN  REQUIRED  */ 

17  <FILE-CCNTR0L-LI5T>  <FI LE-CCNTROL-ENTRY> 

; /*  NC  ACTICN  REQUIRED  »/ 

18  <FILE-CONTROL-LIST> 

18  <FILE-C0NTROL-eNTRY> 

; /*  NO  ACTICN  REOuIPEO  •/ 

19  <F IL£-CCNTPCL-ENTRY>  SELECT  <I0>  <ATTRI BUTE-L I 

CALL  SETlFILElATTRie; 

20  <ATTRIBUTE-LIST>  <0NE-ATTRIB> 

; /»  NC  ACTICN  REQUIRED  •/ 

21  <ATTRieUTE-LlST>  <0NE-ATTRIB5 
VALUE(FFI*VAlUE(SP)  or  VALUE(MP); 

22  <CNE-ATTRI3>  LRGAN12AT1CN  <ORC-TYPE> 
VALLE<KF)«VALU£( SPI ; 

23  ACCESS  <ACC-TYPE>  <RELAT1VE> 

VALUE(FF|>VALue(HPPll  OR  VALUElSPli 

24  ASSIGN  <InPUT> 

CALL  BULClFCDl 

25  <CRG-TYPE>  SEQUENTIAL 

; /•  NC  ACTICN  required  - default  */ 

26  RELATIVE 
CALL  rPlVALLE(SPi4l  ; 

2T  <ACC-TYPE>  SEQUENTIAL 

: /•  NC  action  required  - default  */ 

25  RANDOM 

call  crivallE(Sp.2)  ; . . 

29  <RELATIve>  RELATIVE  <ID> 

CALL  ORlVAlLtlFP.ai; 


<FILE-CCNTROL-ENTRY> 

<FILE-CONTROL-CIST> 

<FILE-C0NTROL-eNTRY> 

SELECT  <I0>  <ATTRI BUTE-L IST> 

<0NE-ATTRIB> 

<ATTRieUTE-LIST>  <ONE-ATTRIB> 
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87 

/• 

30 

<EMPTY> 

*/ 

01 

88 

i 

j 

/» 

NO  ACTICN  REQUIRED  - DEFAULT  */ 

01 

89 

3 

/• 

31 

<IC>  !I»  I-O-CONTROL  . <SAME-LIST> 

•/ 

C1190 

3 

t 

01 

91 

3 

/• 

32 

<EMPTY> 

•/ 

01 

9? 

3 

; 

01 

93 

3 

/* 

33 

<SAME-LIST>  <SAME-ELEMENT> 

•/ 

01 

9A 

3 

oi: 

95 

3 

/* 

39 

<SAME-LIST>  <SAME-ELEMENT> 

• / 

01 

96 

> 

01197 

3 

/• 

35 

<SAME-ELEHENT>  ! :>  SAME  <10-STRING>  . 

•/ 

01 

98 

s 

01199 

3 

/• 

36 

<1C-STRING>  <I0> 

•/ 

I'M 

00 

3 

; 

OI 

3 

/• 

37 

<10-STRING>  <I0> 

*/ 

02 

3 

(lU 

03 

0120A 

3 

/♦ 

38 

<C-OIV>  :«•  data  division  . <FILE-SECTIONx  <WCRK> 

•/ 

01205 

/• 

38 

<LINK> 

•/ 

oi: 

>06 

3 

; 

/* 

NC  ACTICN  REQUIRED  */ 

oil 

07 

3 

/• 

39 

<FILE-SECT1QN>  FILE  SECTION  . <FILE-LIST> 

• / 

01208 

3 

FILESSECSENC  ° TRUE: 

01209 

•a 

/* 

90 

<EHPTY> 

• / 

C1210 

3 

file»sec»enc»true; 

01211 

3 

/* 

91 

<FILE-LIST>  <FILES> 

• / 

01212 

3 

; 

/* 

NC  ACTICN  REQUIRED 

Oil 

1 3 

/• 

92 

<FIl£-LIST>  <F1LES> 

• / 

oi; 

>1A 

3 

/• 

NC  ACTICN  REQUIRED  */  . 

01215 

3 

/♦ 

93 

<FILES>  :;■=  FD  <ID>  <F  ILE-C  CNTRCL>  • 

•/ 

01216 

3 

/♦ 

93 

<RECORD-DESCRIPTION> 

*/ 

CALL  ENC»OF$RECOBO: 

CLP*S>F=VALUE(«PPlf : 

CALL  iETSADCSESSiTlHPShOLD); 

CALL  £ET»SJLEMGTH(T£MPSThei i 

ENC; 

AA  <FUE-CCNTROL>  : :=  <FILE-LIST> 

: /»  Nc  ACTicA  required  •/ 

A5  <EMPTY> 

; /»  NC  ACTICN  REQUIRED  •/ 

A6  <FILE-LIST>  : <F  I LE-ELEMENT> 

S /*  NC  ACTICN  REQUIRED  •/ 

A7  <FILE-LIST>  <FILE-ELEMENT> 

: /»  NC  ACTICN  REQUIRED  •/ 

A8  <FUE-ELEMENT>  3LCCK  <INTEGER>  RECORCS 

! /*  NO  ACTION  required  - FILES  NEVER  BLOCKED  •/ 

A9  RECORD  <REC-CCUNT> 

CALL  SE1»£L£NGTH(VALU£(SP1 ) : 

50  LABEL  RECORDS  STANDARD 

I /*  NC  ACTICN  required  */ 

51  LABEL  RECORCS  CHITTED 

: /»  N'c  ACTICN  required  •/ 

52  value  of  <ID-STRING> 

i /•  NC  ACTICN  REQUIRED  */ 

53  <PEC-CCUNT>  <INTEGER> 

; /*  NC  ACTICN  required  - VALUE(SP)  CORRECT  •/ 

5A  <INTEGER>  TO  <INTEGER> 

cc; 

VALUEIHPl-VALUEISP);  /*  VARIABLE  LENGTH  */ 

CALL  SETSTVFEIAU  /*  SET  IC  VARIABLE  •/ 

ENC; 

55  <l«ORK>  WORKING-STORAGE  SECTICN  . 

55  <ReCORO-OESCRIPTICN> 

; /»  NC  ACTICN  REQUIRED  *f 

56  <EHP’T> 

I /•  NC  ACTICN  REQUIRED  */ 

57  <LINK>  LINKAGE  SECTION  . <R ECCRO-OES CR I FT  ION> 

CALL  PPINTIEkRORItnI* ) I /•  INTER  PROG  COHN  */ 

5B  <EHPTY> 

; /•  NO  ACTICN  REQUIRED  •/ 

59  <FECORO-D£SCRIPTION>  <LEVEL-ENTRY> 

; /♦  NC  ACTICN  REQUIRED  */ 

60  <RECORO-OESCRI PT1CN> 

60  <LEVEL-ENTRY> 

; /»  NO  ACTICN  required  •/ 

61  <LEVEL-ENTRY>  <INTEGER>  <DATa-ID>  <RELEFINES> 

61  <DATA-TYPE>  . 

DC; 

CALL  LCAOSLEVEL: 

IF  PENCINGSLITERALOO  THEN  PENDING  $L  IT  1 ID«  I DISTACKIPTR  i 

ENOl 

62  <CATA-IC>  <ID> 

1 /•  NC  ACTICN  REQUIRED  •/ 

63  filler 

cc; 

CLP3SYN,  VALUEI5PI«NEXT»SYM; 

CALL  eLlLOtSYMBOLlO) : 

END; 

6A  <REOEFINES>  : REDEFINES  <I0> 

cc; 

CALL  £ET$RECEF(VAlUE(SP| .VALUE! SP-2) »: 

VAlUE(PPI«l:  /*  SET  REDEFINE  FLAG  CN  •/ 

CALL  CFECKlFORSLeVEL; 


CALL  CUCKlFCRtLEVEL; 
66  <CAIA-TYPE>  i 


<EHPTY> 

!•  <PROP-LIST> 


; /*  NC  ACTICN  REQUIRED  •/ 

67  <EHPTY> 

; /•  NC  ACTICN  required  •/ 

68  <FRCP-L1ST>  <DATA-ELEMENT> 

; /♦  NC  ACTICN  required  •/ 

69  <PRUP-LIST>  <0ATA-EL£HENT> 

; /«  NO  ACTICN  REQUIRED  •/ 

TO  <CATA-FLEMcNT>  : s-  PIC  <INPUT> 

CALL  picsanalizer; 

71  USAGE  COMP 

CALL  SniT-iPEICOMPU 

72  USAGE  DISPLAY 

; /•  NC  ACTION  required  - OEFAULI  •/ 


I 


0I2S7  3 

01298  3 

01299  3 

C1300  3 

01301  3 

01302  3 

01303  3 

0130.4  9 

01305  4 

01306  3 

01307  3 

013C8  3 

01309  3 

C13^  3 

01311  9 

01312  9 

01313  5 
01319  S 

01315  9 

01316  3 

01317  3 

01318  3 

01319  3 

01320  3 


01323  3 

01329  3 

01325  3 

01326  3 

01327  3 

01328  3 

01329  9 

C1330  9 

01321  3 

01332  3 

01333  3 

01339  9 

01335  9 

01336  3 

01337  3 

01338  3 

01339  3 

C1390  3 

01391  3 

01392  3 

01393  3 

01399  3 

01395  3 

01396  3 

01397  3 

01398  3 

01399  2 

C1350  1 

01351  1 

013'2  2 

01353  2 

01359  1 

01355  1 

01356  2 

01357  2 

01358  1 

01359  1 

01360  2 

01361  2 

01362  2 

01363  2 


01373  9 

01379  9 

01375  9 

01376  9 

01377  3 

01378  2 

C1379  I 
C1380  1 

01381  2 

01382  2 

01383  2 

01389  2 

01385  2 

01386  3 

01387  2 

01338  2 

01389  1 

C1390  1 

01391  2 

01392  2 

01393  2 

8119^^  I 

013S6  9 

01397  9 

01398  5 

01399  5 

019C0  9 

01901  9 

01902  3 


/•  73  , , , SIGN  LEADING  <SEPARATE> 

CALL  SE1ISIGN(18I: 

/*  79  SIGN  TRAILING  <SEPARATE> 

CALL  SETt$ICM171: 

/•  _ 75  OCCURS  <INTEGER> 

' CALL  CRSTYPEI 1281 : 

CALL  $ET$OCCURS(VALUE($P|l : 

ENOS 

/•  76  SYNC  <OIRECTION> 

S /*  NO  ACTION  REOUIREO  - BYTE  MACHINE  »/ 

/•  77  VALUE  <LIT£RAL> 

CO ; 

IF  NCT  FILESSECSENO  THEN 
DCs 

CALL  PRlNTiERRORI'VEM; 

FEAOINGSLITERAL'OS 

ENC: 

ENOS 

/•  78  <CIBECTION>  :s»  LEFT 

S /*  NO  ACTICN  REOUIREO  •/ 

/*  79  RIGHT 

S /•  NC  ACTICN  REOUIREO  •/ 

/*  80  <EMPTY> 

S /*  NC  ACTICN  REOUIREO  •/ 

/•  81  <SEPARAT£>  :s«  SEPARATE 

VALUE<SFI»2S 

/•  82  <EMPTY> 

S /*  NO  ACTICN  REQUIRED  */ 

/•  83  <LITERAC>  :i»  <INPUT> 

CCS 

CALL  LCADSL ITERAL; 

.PENCINC-*LITERAL=1S 

ENOS 

/»  89  <LIT> 

CC; 

CALL  LCAOiL ITERAL; 

P£NCING»LIT£RAL«2; 

ENOS 

/«  85  ZERO 

PENCINGJLnEPAL*3S 
/*  86  SPACE 

FEN0INGlLnERAL-9S 
/*  87  QUOTE 

FENCINGlLnEFAL  = 5; 

/*  88  <1NTE0ER>  <INPUT> 

call  CCNVEFT JINTEGEPt 
/*  89  <10  ::=  <INPUT> 

VALUEISPUMATCH;  STORE  SYMBOL  TABLE  FCINTERS  */ 

ENC:  /•  ENC  OF  CASE  STATEMENT  */ 

END  CCCEAGEN; 

GETINI;  PBCCECLRE  BYTES 
RETLRN  INCEXUSTATE)  S 
END  CETINlS 

GETIN2:  PRCCECIRE  BYTEs 
RETURN  INDEX2IS-TATEI  s 
END  GETIN2S 

INCSF;  PROCECUBES 
JF»SP  ♦ is 

IF  SP  >•  PSTACKSIZe  THEN  CALL  FATALSERROR { • SO' I S 

vall:eisf)«os  /»  clear  value- stack  •/ 

END  INCSPS 

LCCKAHEAO:  FBCCECUREs 
IF  NCLCCK  THEN 
CCS 

CALL  SCANNERS 
NCLCCF'FALSES 
IF  printatcken  then 
CCS 

CALL  CPLFI 

CALL  PRINTAMUHBERITOKENIs 
CALL  PRINUCHARC  'Is 
CALL  PPINTSACCUMS 

ENC  S 

ENOS 

END  LCCKAHEACS 

NCiCCNFLICTs  PPCCEOURE  (CSTATEI  BYTES 
CECLARE  (CSTATE.If J.iU  BYTES 
J»IN0EX1<CSTATE1 5 
N»J  ♦ IN0E>2(CSTATEI  - is 
CC  1-J  TC  KS 

IF  REACH  I ) -TCKEN  THEN  RETURN  TRUES 

ENDS 

RETLFN  false; 

ENO  NCSCCNFllCT; 

RECOVER:  PRCCECLRE  BYTES 

CeCLABE  ITSF,  RSTATcl  BYTES 
CC  FOBEVEBS 
TJF*Sf S 

CO  VhILE  TSP  <>  255s 

IF  N0*CCNFLICT(RSTATE:«STATESTACK(TSPI  1 THEN 
CC;  /•  STATE  WILL  BEAD  TOKcN  •/ 

IF  SBOTSP  THEN  SB  » TSB  - IS 
. return  RSTATEs 
ENDS 

TSP  • TSP  - Is 

ENC; 

CALL  SCANNERS  /•  TRY  ANOTHER  TOKEN  •/ 

ENO; 

ENO  NECivEB; 


ILL  PPINTSACCUMS 


IF  N0*CCNFLICT(RSTATE:«STATESTACK(TSPI  1 THEN 
CC;  /•  STATE  WILL  BEAD  TOKcN  •/ 


81<iOS 
1406 
01407 
01408 
01409 
C1410 
01411 
014  12 
01413 
01414 
01415 
01416 
01417 
01418 
01419 
C14  20 
01421 
01422 
01423 
01424 
C1425 
01426 
01427 
01428 
01429 
C1430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01438 
01439 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01448 
01449 
C1450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01458 
01459 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
0146  7 
C1468 
01469 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01478 
01479 
C1480 
01481 
01482 
01483 
01484 
01485 
01486 
01487 
01488 
01489 
C1490 
01491 
01492 
01493 
01494 
01495 
01496 
01497 
01498 
01499 
C1500 
01501 


EM;iP353:  fpoceclre; 

/•  this  PKCCfcCURE  stores  THE  INFORMATION  REQUIRED  BY  PASS2 
IN  LOCATICNS  ABOVE  THE  SYMBOL  TABLE.  THE  FCLLOWINC 
INPORMATICN  IS  3TCRE0! 

OLTPOl  FILE  CONTROL  BLCCK 
CCKPlLER  toggles 
INFtI  EUPFER  POINTER 

THE  OUTFLT  ELPFER  IS  ALSO  FILLED  SO  THE  CURRENT  RECORD  IS  WRITTEN. 

• / 

CALL  BYTEJCLTISCCI; 

CALL  ACCRiCLTiNERTSAVAILABLEI ; 

CC  WHILE  CLTFUISPTRO.OUIPUTIBUFFS 
CALL  EYTESOUTIOFFH) i 

END: 

call  MCVEI .output SFCe. max SMEMCRY-PASSlSLEN.PASSltLENl; 

CO  TO  MAXIPEMORY; 

EEC  ENCSPASS: 

/••«**  program  execution  starts  here  * » »/ 

CALL  MOVE!  IMHALAPOS.PAXSHEMCRY.RORSLENGTH)  ; 

CALL  INlTlSCANNER; 

CALL  IMTSSYMBCL: 


/• 


• * PARSER  » * • 


*/ 


DC  whle  ccppilin'G: 

IF  STATE  <•  PAXRNn  THEN 


CC; 


CALL  1RCSP; 

STATF.STACKi  SPl  • STATE: 

CALL  lcckahead; 

I*GET  IM; 


/*  read  state  */ 

/•  SAVE  CURRENT  STATE  */ 


J • I ♦ GETIN2  - l: 

CC  I»1  TO  j: 

IF  REACKII  • TOKEN  THEN 
CC: 

/♦  COPY  THE  ACCUMULATOR  IF  IT  IS  AN  INPUT 
STRING.  IF  IT  IS  A RESERVED  WORE  IT  DOES 
ACT  NEED  TO  PE  COPIED.  */ 

IF  inK£N*INPUT»STRl  OR  <TCKEN»Ll  TERAL I THEN 
DO  K»0  TO  ACCU.M; 

VARC(K1=ACCUH(K) : 

END: 

STATE>REA02(I): 

nolock-true: 

I >J ; 

END; 

ELSE 

IF  I»J  THEN 
CC: 

CALL  PRINTSERFCRCNP'I  ; 

CALL  PRINT!. • ERROR  NEAR  »•!: 

CALL  PRINTiACCUM; 

IF  (STATE:«REC0VERI»0  THEN  COMPILING-FALSE; 

END: 

ENC:  • 

END:  /*  ENC  OF  READ  STATE  */ 

ELSE 

IF  STATE5MAXFNQ  THEN  /•  APPLY  PRCOUCTICN  STATE  •/ 

CC: 

PP-SP  - GETIN2: 

MFFl-PP  ♦ 1; 

CALL  CCC£1G£N(STATE  - MAXFNQl: 

SP-MF ; 

I-CETIM: 

J-£TAT£STACK(SPI : 

DO  WHILE  (K:-APPLY1(  I I I <>  0 ANO  JOK; 

i-i  ♦ 1: 

ENC  ; 

IF  (K  ;-APPLY2(1 1 1-0  THEN  COMPILING-FALSE: 
state-k: 

END; 

ELSE 

IF  STATE<-PAXLNC  THEN  7*L00KAHEAC  STATE-/ 

CCl 

I-GETlNl; 

CALL  LCCKAHEAC: 

DC  WHILE  (K  :>L00K1(  1 1 lOO  ANO  TOKEN  OK; 

I-I-l  ; 

^NC  * 

STATE-LCdK2(II  : 

END! 

ELSE 

CC:  /-PUSH  STATES-/ 

CALL  INCSP: 

STATcSTACK(SPI-GETIN2: 

STATE-CETINl; 

END! 

END!  /-  CF  while  CQPPILING  •/ 

CALL  CRlFi 

CALL  FRINTI.'ENC  CF  PART  1 S'l! 

CALL  ENOiPASS: 


/» 


COeCL  COMPILER  - PART  2 


•/ 


C0016  I 


C0035  1 

OOC36  1 
0003  7 1 


00C56  I 


IOCH:  /*  LG«C  POINT  */ 

/•  CLCEAL  declarations  AND  LITERALS  */ 

CECLAPE  LIT  IITEPALLV  'LITERALLY*: 

CECLARE 


ecos 

NASHSTAEtACCR 

PASSISLEK 

MAXSNEMCRV 

PASSIATCF 

eCCT 

CR 

Lf 

CLCTE 
PCLNO 
TRLE 
FALSE 
FCREVcR 


LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 


•5H',  /•  ENTRY  TO  CPERATUG  SYSTEM  »/ 
•2500H't  /•  address  OP  THE  3CTT0M  CF 
the  tables  prom  parti  */ 

•A6' 


•32Q0H' 
•310'  ■ 


OH'  f 


*0* , 
'13*, 
*10', 
*22H*, 
•23H* , 


■I'l 

*0*. 

. 'WHILE  TRUE' ; 

CECLARE  MAXRNO  LITERALLY  *83',/*  MAX  READ  COUNT  */ 

MAXINC  LITERALLY  '106', /•  MAX  LOOK  COUNT  •/ 

MAXFNO  LITERALLY  *121', /»  MAX  PUSH  COUNT  •/ 

MAX'NO  literally  *218',/*  MAX  STATE  CCLNT  •/ 

STARTS  LITERALLY  'I':/*  START  STATE  •/ 

CECLARE  REACl  CA TA (0,62. 5,0,8, 13, IS, 19. 21, 23. 25, 30, 31, AO, Al, A3. AA,A8,E2 
, 5 3, 57, 59, A7, 27, 26, 35, 36, AT, 2 7, A 7, 1, 2 8, Ae, 1C, 3A, AS ,3  3,12.27,2  8,35,3  6 
, A7, 3,  1, 29, 22. A7, 56, 1.55, 2, 29, A2, 26, 18, 32  , AS, 51, 63, 17, A, 37, 27, 38, A7 
,6C,5A,1,1A,11,7,9,50.5,B,13,15,I9,21,23,25,30,A0,A1,A3,AA,A8,52,53 
,57,59.5C,7.16,l.l,S,8,i3,15,19,20,21,23,2S,30,A0,Al,A3,AA,A8,52,53 
,57,59,A7,t 1,9,A7,2A,0,0) : 

CECLARE  LOCkI  CAtA(0,A7,0,39.0,2,0.39,0,l,U,C,A7,0,29,A2,0,2,0,26,0,7,0 
,16,0,l,lA,C,5A,Q,5A,0,5A,0,5A,0,ll,0,l,lA,C,i,0,5C,0,A7,0,2A,C,9,A7 

CECL/RE’apPLYI  CATA(0,C,2A, 0,6, 0,0, 79, 0,0, 83, 0,13, 63, 70, 74,81,0, 0,3,82,0 
,3,83,0,27,C,0,0,0,59,60,61.0,0,0,0,0,0,0.71,0,0,0,0,C,C,5,e.9,15,16 
, A6, 0,0, 2, 5. 6,0, 9, lA, 15, 16, 20,23,25, 26, 28, 29, 30, 31, 35, 26, A2.A6. 77, 7o 
,79,82.0,10,32,39,AO,51,5A,56,D,5,6,9,15,16,3J,A6,C,5A,0,22,0,C,17 
, 3A, 66, 67  , C,C, 0,3,83,01; 

declare  REAC2  CAT4(t5,A3.6.7,10,l2,8A,17,  19,20.22,25,26,29  ,3C,31,32,3A,35 
,36,39,AQ,3  3,202,2C6,20S,207,86  ,202,86,122,8  5,1/9, 195 . 193, 19A, 1 36 
, li3, 2 ll,iC6,2C 8,20 7, 210, 203, 130, 28, 192, 198, 87, 3, 37, A, 190, 189, 23. 163 
, 1 69, 167, 162, 143,  16, 5, 182, 2 02, 27, 86, Al,  173,2, 13, 165, 8. 175, ,185,6,10 
, 12, 8A,  17,  19, 20, 22, 25, 29, 30, 31, 32, 3A,  35, 34  , 39, AO,  185, 9,  15',  131,1  J2, 6 
, 10. 12, 8A,  17, 18, 19  , 20, 22, 25, 29, 30, 31, 32. 3A, 35, 36, 39, AC, 199, A2, 1 1,199 

CEClZr J’l6ck2  CATA(0,1a,107,2A,108,199,2O0,38,1C9,1A3.IA3.125,A6,110,a7 
,A7,lll,A£,197,A9,ll2,ll3,5l,llA,5A,ll5,ll5,56,59,116,59,ll. ,60,118 
. 61, 119. 6A, 120, 121, 121, 66, IA8, 69, 71, 1 AO, 77, 123, 80,  137, 129, 129, 631  : 

DECLARE  APPIY2  CATA(0,0,lj6,62,78,10A,79.128,127,106,75,7A,152.151,l53 
,1 78, 15C, 133, 13 A, 105, 105, 137, 103, 103,1  AO, 183, 76, 161, 50. 67, 156,15a 
, 157, 155, 1A9, 70, 135, 63, 95, IA7, 68,17a, 81, 160,57, 187, 82. 97, 1A5, 98, 99 
,9  6,176, 136, 191, A A, 9 1,88, 9 1, 9 1,2 16, 9 1,9 1,218,130,139, £9, 125, 90, 91 
,158,92,159  ,IAA,91,126,126,AA,1A6,A5,93,52,53,9A,2CA,20A,55,2U.196 
, 1 96, 196, 19 4, 19 6, 1 9o,  1 96, 2 01, 73, 72, 209, 2 13, 172, 65, 10 1 ,21 A, 16A, 100 
, ,lAl,lA;,lc:,102,lA,6)i 

CECLAR6  Index  1 CiTA(5,l,l(6,2,22,ll6.L16,23,116.116,2a,30,31,7A.114,116 
, 1 16, 23, 32, 33, 116, 36, 37, 116, A5, 116, 116, 23, 116, 116, 116. 116, 23, A3, 23 
,n6,ll6,AA,A5,28,28,A6,116,A8,A9,5l,ll6,5  2,51 ,54,55,28,6  0.61,2  8,62 
,42, 66, 47, 67, 47, 67, 68, 69, 70, 71, 23, 23, 7 A, 72,7a, 92, 03,94,95,96, 9/, 116 
. 1 16, 11E.12C, 74,116, 2, 1,3, 5, 7, 9. 12, 14,17, IS, 2 1, 23, 25, 28, 30, 32, 34,36 
,38, A I, A 3, 45,47,49,217, 124,124,177, 188. 16 1,205, 205,184,111, 17 1,17  1 


, 40, HI, ,,4, ,,3, •K,',',, 411, 

,171,164,215.1,2(2,4,4. 
,12. 12, 14,12,12.12, 13  - 


l,14H,14',,lll,100,iDl,4H4,4J7,10H,lfl,lfl,lfl 

4,6, 6, 7, 7 ,9,9,10, 10, 10,12,12, 12 . 12,12. 12, 12, 12 
, 18, 18,  18,  19, 19,  19, 19, 42, 22, 22, 25, 27, 27, 27, 2 8 


.28,29,29.29,30,30,34,34,35,35,36,36,37,37,38,38,39,39,39,^0.42,43 
,43,44,44,45,45.46,46,46,47,47,54,55,80,80,80,88,96,94,96,98,98,100 
,1CC,1CC,1C1,1C1 ,1C6,106,1C7,107,108I; 

CECLARE  iN0EX2  C A T A ( 0 , 1 , 1 , 20 , 1 , 1 . 1 . 5 . 1 , L , 2 , 1 , 1 , 18 , 1 , 1 , 1 , 5 , 1 .3 , 1 , 1 , 4 . 1 , 1 
,1,1, 5, 1, 1,1,1, 2, 1,5, 1,1, 1,1, 2, 2, 2, 1,1, 2, 1,1, 2, 1,1, 5, 2, 1,1, 2, 1,3, 1,1 
,1,1,1,1,1,1,1,5,5,18,2,18,1,1,1,1,1,19,1,2,2,1,13,1,40,2,2,2,4,3,2 
,3  , 2 ,2, 4. 2. 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2,3, 14 ,2 4, 38, 46, 4 7 , A 9, 51. 54, 56, 58, 59 
.6C. 61. 64, 66. 6, 1,0. 0,1, 0,1, 2, 2, 1.2, 0,0, 2, 1.0,2, 1,0, 2, 1,1, 3, 3, 2, 3, 0,1 
,2,2,A,4,5,A,A,5,l,l,2,2,0,0,l,5,0,0,C,0,0,C,0,0,0,C,0,0,0,l,l,0, 1,  1 
,C,0,1,2,0,C,0,0,0,0,0,0,0,0,0,0,0,(0,0,3,0,0,C,0,0,C,C,0,0,0,0,C,0,0 
,11; 

/•  END  CF  TABLES  •/ 

CECLARE 

/•  JOINT  CECIARATICNS  */ 

/»  THE  FCLLChlNG  ITEMS  ARE  DECLARED  TOCETFER  IN  THIS 
CRCUR  IN  ORDER  TO  FACILITATE  THEIR  BEING  PASSED  FRC 
TFE  FIRST  PART  OF  TFE  COMPILER. 

_ BYTE, 

BYTE, 


CUTPUT»FCB 
CieuCGINC 
PR  INTIPPCO 
PR  INTITCKEN 
LISTJINPLT 
SECtNUM 
NEXTISYM 
PClNTcR 


BYTE, 
BYTE, 

byte, 

BYTE, 
AODRcSS , 
4(  DRESS, 


NEXTSAVAIlAeLE  AOCRESS, 
MAXSINTIMEM  address, 

/•JO  eupfers  and  global?  */ 

IMACCR  ACCPESS  initial  (5CMI, 
INFUTFCR  EASED  INADCR  1331  BYTE. 


/•  POINTS  TO  THE  NEXT  BYTE  TC  BE  READ  ♦/ 


CLTPUT4ELPF 

oltputiptr 

CLTPUTTENO 

CUTPUTJCMAR 


(1201  BYTE, 

ADDRESS, 

ADDRESS, 

BASED  OUTPUtiPTR  3YTE; 
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'lUf  k 

:i?S  i 


B0134  I 
00135  1 


C013S  1 

*1^9  i 


/*  CLOBAl  CCLMERS  •/ 

CECLRRE 

C1P  evTi. 

RICTR  ACCRESS, 

EASE  AOCREflt 

BlEYTE  EASii  EASE  BYTE, 

EiAOCR  8ASEC  EASE  ADDRESS: 

MCM:  PRCCECtRE  (F.A); 

DECLARE  F EYTE,  A ADDRESS: 

GC  TO  eccs: 

END  PCM: 

NCNJ:  PROCEDLRf  <f.A)  BYTE: 

DECLARE  F EYlE.  A ADDRESS: 

GC  1C  BCCS: 

END  NCN2; 

PRINTCI-AR:  PROCEDURE  (CHARI: 

DECLARE  CHAR  BYTE; 

CALL  HCM  (2. CHAR): 

ENC  PpInTCHAR; 

CRLF:  PROCEDLRE: 

CALL  PR  IMCHAB(CR)  : 

CALL  PBIMCHAR(LF)  : 

ENC  CRLF; 

PRINT:  PRCCECURE  (A); 

ceclare  a accress: 

CALL  PCM  15. A); 

ENC  PRINT; 

PfilNTlERROR:  PRCCECURE  (CODE); 

DECLARE  CCCE  ADDRESS: 

CALL  CRLF: 

call  PRINTCHAR(HIGH(CnOEn  ; 

CALL  PR  INTCHAfi (LCHICCOEI 1 ; 

END  PRINTAERRCR; 

FATALJERROR:  PRCCECURE! REASON) ; 

DECLARE  REASCN  ADDRESS; 

CALL  PR  1NT«ERRCR( REASON) ; 

CALL  TIPE(IC); 

GC  TO  eCCT; 

ENC  faialserrcr; 

CLOSE:  PRCCECURE: 

IF  PCN2(16,.CUTPUTSFCBI«255  THEN  CALL  FAT AL » ERROR  I ‘CL • ) ; 

ENC  CLCSE; 

PCREJINPCT:  PRCCECURE  BYTE; 

/»  READS  THF  INOJT  FILE  AND  RETURNS  TRUE  IF  A P.F.COPD 
HAS  READ.  FALSE  IPPLIES  END  OF  FILE  */ 

DECLARE  CCM  BYTE: 

IF  (0CNT;«PCN2(20,.INPUT»FCB))>1  THEN  CALL  FATALSERRCPI 'BR* ) ; 
RETURN  NCT(CCNT): 

ENC.  PCREIINPLT; 

NRITEICUTPUT  : PRCCECURE  (LCCATICN); 

/»  HRITES  CLT  A 123  BYTE  BUFFER  FROM  LOCATION*/ 

DECLARE  LCCATICN  ADDRESS: 

CALL  MCMCt.LCCATlONI:  /*  SET  DMA  •/ 

IF  MCN2(21..CUTPUT$FCBI<>0  THEN  CALL  F ATAL t ERROR! • HR •) ; 

CAI.L  PCNUSe.EOH)  : /preset  DMA  ♦/ 

ENC  URlTElCUlPLT  : 

MOVE:  PROCECLRE!SCURCE,  OESTINATICN.  COUNT); 

/*  PCVES  FCR  THE  NUMBER  OF  BYTES  SPECIFIED  BY  COUNT  */ 

DECLARE  ISCLRCE, DESTINATION)  ADDRESS. 

ISlfaYTE  EASED  SOURCE.  DABYTE  BASED  DESTINATION,  COUNT)  BYTE: 
DC  while  !CCLNT:.CCUNT  - II  <>  255: 
d$3yte*s:byt|: 

SCIRCE-SCURCE  ♦1: 

OESTINATICN  • OESTINATICN  ♦ 1: 


5TINATICN  ♦ l: 


END: 

END  PCVE; 

fill:  PROCEDLRE I ADDR, CHAR, count ) ; 

/*  MOVES  CHAP  INTC  AOOR  FOR  COUNT  BYTES  •/ 
DECLARE  ACER  ADDRESS. 

ICHAR.CCLNT  ,CEST  BASED  AOOR)  PYTE; 

DC  while  !CCLNT:.CCUNT  -1)02551 
OEfl-CHAfi: 

AOCR'ACCR  * l; 


/•  • * 

• • • 

SCANNFR  LITS 

CECLARE 

literal 

LIT 

•28*. 

INFUISSTR 

LIT 

•AT' , 

PERICO 

LIT 

•I*. 

RPAP IN 

‘•JT 

•3' , 

LPAR IN 

LIT 

•2*, 

Invalid 

LIT 

•0* : 

/*  * • • * SCANNER  TABLES  • • • * •/ 

DECLARE  TOKENAIAEie  DATA 

/•  contains  the  tcken  number  one  less  than  The  first  reserved  word 

FCR  EACH  LENCTH  CF  WCRO  »/ 

ID  .0.3.  ?.  12. 2S,  50  ,<>1.55.59,621  , 


1 


13C 


II  ■ 'I  '.P ' 


yu^ii 

S0212 
oo’i3 
00214 
002  IS 
00216 

00217 

00218 


n\\i 

00221 

00222 
00223 

mit 

00226 

C0227 

CQ228 

C0228 

00230 

00233 

00234 

00235 

00236 

00237 

00238 
C0239 
C0240 

00241 

00242 

00245 

00246 
0024  7 
C0248 
CQ249 
C02S0 

00251 

00252 

00253 
C0254 
00255 

88257 

C0258 

(0259 

C0260 

00261 

00262 

C0263 

00264 

0C265 

00266 

00267 

CC268 

C0269 

00270 


C0273 

00274 

00275 
C0276 
00277 
C0278 
<0279 
C0280 

mvz 

00283 

00284 

ihi 

00287 

C0288 

<0289 

<<290 

002^1 

ip 

296 

297 


oSHs 

00316 

88III 

880? 


7ABLS  C*T*«  'ev*. 'CO*  t* IF* .'70* , *400* , 'END* ,* I-C* 

.•NOT*  ,*RU4*  ,*C4LL*. 'ELSE*  • • EX  IT*  , • FROM*  , • IMO*  t • LESS  * 1 *MOVE  * 
.*NEXT* , *0PE4*,*P4G6* .'KSAO* , * S I ZE ■ , * STOF * ,*THRU* , *2ER0* 

,**FTEP  *t*ClC$E*  t 'ENTER*. ‘EQUAL*  t 'ERROR' , * 1 NPUT • , * CLO IE • , * SPACE  * 
.*  TIRES* ,*LATIL*. 'USING* , ■ MR  I TE • , • ACC  LPT  * , 'BEFORE* . 'OELETE' 

, 'CIVIOE*. 'CLTPUT  *. *CI SPLAY* , 'GREATER* 

.* INVALIC* . •NUHEP id* , 'PERFORM*, 'REWRITE* , •RCUNDED* .'SECTION* 
,'CIVISKN*  .'MULT  IPLY*  .*  SENTENCE  *.*  SUETR  ACT  *. 'ADVANC  I NG  • . 
*CEPEN01NC*  .'PROCEDURE*  . ‘ALPHA 8ET  1C  I . 

OFFSET  (11)  ACCRESS  INITIAL 

/*  NUMBER  CF  BYTES  TO  INDEX  INTC  THE  TABLE  FOR  EACH  LENGTH  */ 
(0.0. 0.8. 23. 63. 14 3. 173,229,261.288). 

WOPOSCCUNT  CATA 

/«  number  CF  kOROS  OF  EACH  SIZE  */ 

(0,0.4.5,15,12.5.8,4.3,1), 


FAXtIOSLEN 

FAXALEN 

ACCAENC 

LCCkED 

)-CLC 

euEFERAENO 

NEXT 

IN6UFF 

CHAR 

ACCUM 

PAACCL'M 

DISPLAY 

CISPLAYAREST 

TCXEN 


12*. 

10* . 


LIT 
LIT 

SATA 
YTe 
BYTE, 

ADCRiSS  INITIAL 
BA<EO  POINTER 


A (*EHo.  m; 
i INITIAL  (0), 


Lit 

BYTE 

BYTE, 

(30) 

BYTE 

(73) 

BYTE) 


•BOH* , 
INITIAL)* 


( 103H)  , 
BYTE, 

• ), 


BYTE, 

INITIAL  (0), 

BYTE, 

/♦RETURNED  FRCM  SCANNER  */ 


/•  PROCECURES  USED  BY  THE  SCANNER  */ 

NEXTACHARI  PBOCECURE  BYTE: 

IF  LOCxeC  THEN 

cc: 

. LCCKEC»FALSE : 

RETLPN  (CHAR:>HOLO): 

ENC; 

IF  (POINTER:«FOINTER  ♦ 1)  >-  BUFFERAENC  THEN 
OC: 

IF  NCT  FCREAINPUT  THEN 
CO; 

elfferaenc*.mfmory; 

FCINTEP*.ACOAENO; 

ENC: 

ELSE  FC INTER-INEUFF; 

ENC; 

RETURN  (CHAP  :=NEXTl; 

END  NEXTACHAR; 

GETACHAR:  PRCCECLRE: 

/»  this  FRCCECURE  IS  CALLED  WHEN  A NEW  CHAR  IS  NEEDED  WITHOUT 
THE  DIRECT  RETURN  CF  THE  CHARACTER*/ 

Char.nextachar; 

ENC  GETACHAR; 

OISPLAYALINE:  RRCCEOURE: 

IF  NOT  IISKINPUT  THEN  RETURN; 

OISPLAYICISFLAY  ♦ 1)  • 'A* ; 

CALL  PP  INT( .CISPLAYAREST) s 
DI  SPLAY  = C; 

ENO  OISPLAYtLINE; 

LCAOACISPLAY:  FFCCEOUPE; 

IF  0ISPLAY<T2  THEN 

01  SPLAT (Cl  SPLAY i-O I SPLAY*1)*CHAR; 

CALL  GEIICHAR; 

ENC  LCADAOI SFLAY ; 

PLT:  FPOCECLRE; 

IF  ACCUF  < 30  THEN 
ACCUM(ACCUF  :«ACCUF»l).CHAR; 

CALL  LCACAOISFLAY; 

ENC  PLT; 

EATALINE:  PPCCECLRE: 

CC  while  charocr; 

CALL  LCACAOISPLAY; 

END: 

ENC  EATALINE; 

GETANCABLANK:  FRCCECURE: 

DECLARE  (N.I)  BYTE; 

OC  FOREVER* 

|F^|HAR  - * * THEN  CALL  LCACAOISPLAY: 

IF  CHAR.CR  THEN 
OC: 

CALL  OISPLAYALINE: 

IF  SEQANUM  THEN  N»8:  ELSE  N>2; 

CC  I • 1 TC  N: 

CALL  lcaoaoisplay: 

ENO: 

IF  Char  • *•*  then  call  eataline: 

ELSE 
IF  C 
CCt 


ENC) 


CHAR  • *:*  THEN 


ELSE 
reurn: 


ENC: 


IF  NOT  CEBUGGING  THEN  CALL  EATALINE: 
ELSE 

CALL  loaoaoisplay: 


ENO:  /•  ENC  CF  OC  FOREVER  •/ 

FNC  CETANOAPIAFF ; 


131 


do  >2  2 
eg  32  3 
CQ224 
00225 
a022t 

C0327 

C022e 

il0329 

(0430 

00331 

C0232 

Og’33 

C033^ 

00335 

00236 

C0337 

00338 

C033<; 

C02A0 

00361 

00362 
00J63 
C0266 

00265 

00266 

00267 

00268 
00269 
C035Q 

00351 

00352 
00253 

00356 

00255 

00256 

00357 
C0359 
C035S 
C02tC 
0036  1 
00362 
C0363 
CQ266 
C026S 
00  36  6 
00267 
C0263 
C0369 
CQ370 
0C271 
00372 
00273 
00376 
C0375 
00376 
CC277 
C0278 
C0279 
C0280 
CC381 
00262 
00282 
C0266 
C0285 


SP6CEJ  PAOCECUPI  BYTE S 

PETU8N  *1  CA  (CHAR«CRI; 

ENC  SPACE; 

LEFTIPARINJ  PRCCICURE  BYTE; 

RETURN  CI-AR  • • ( ■ ; 

ENC  LEFKPARIN; 

RIGHYJRARlN!  PRCCEOURE  BYTE; 

RETURN  CI-AR  • • ; 

ENC  RlGHTSPARIN; 

CELIPITER:  PROCECCRE  BYTE; 

/•  CHECKS  FCR  A PER  ICO  FOLLOWED  BY  A SPACE  CR  CR*/ 

If  CV-AR  <>  •.«  THEN  RETURN  FALSE: 
hclO'NEkucfar: 

LCCk£0»TRU£; 

If  space  tfea 

oc; 

CHAR  • •••: 

RETLRN  TRUE; 

EAC; 

CFAR*».<; 

RETLRN  false; 

ENO  celipiter: 

ENOiCFlTOKEN:  PRCCEOURE  BYTE*. 

RETURN  SPACE  OR  DELIMITER  CR  LEFTSPARIN  OR  RIGHTiPARIN; 

ENC  ENCJOFFTCKEN; 

GEHLITERAL:  PRCCEOURE  BYTE; 

CO  FOREVER; 

IF  NE>T*CHAR«  QUOTE  THEN  RETURN  LITERAL: 

CALL  PLT; 

ENO; 

ENO  CETtLITERAL; 

LCCKfLP:  PRCCECIPE  BYTE; 

DECLARE  PCINT  AOORESSt 
(FERE  BASEC  FCINT.l)  BYTE; 

natch:  FfCCECLRE  BYTE; 

CEClARE  J BYTE: 

00  J»1  TO  accuh; 

IF  FERE(J  - II  <>  ACCUM(JI  THEN  RETURN  FALSE; 

ENC: 

RETLRN  TRUE; 

ENC  natcf: 

FCINT=Cff SET<ACCUH1+  .TABLE: 

CC  I»1  TC  NCECSCCUNT(ACCUM) : 

IF  FATCF  TFEN  RETURN  1 ; 

PCINT  » PCINT  ♦ ACCOM: 

ENO: 

RETURN  false: 

ENO  LCCKIUP; 

RESERVECtWOHC:  ERCCEDLRE  BYTE; 

/•  RETURNS  TFE  TOKEN  NUMBER  OF  A RESERVED  WORD  IF  THE  CONTENTS  CF 
TFE  ACCLPuLATCR  is  a reserved  word,  OTHERWISE  RETURNS  EERO  «/ 
CECLARE  VALLE  BYTE; 

CECLARE  NUKE  EYTE; 

IF  ACCUP  <»  PAXALEN  THEN 

cc; 

IF  (NLFe:«TCKENlTA3LE(ACCUM)  loo  THEN 
CC: 

IF  (VALUE:«LOOKtOPI  <>  0 THEN 
NUPB*NUHB  ♦ VALUE; 

ELSE  NUMS>0; 

ENC; 

ENO; 

RETURN  NUMB: 

ENO  RESERVEOWCRC  ; 

GETSTCKEN:  FRCCECL'RE  BYTE: 

ACCUP'C; 


CALL  GETJNClELAf.K  : 
if  CMAR»CUC1E  TFE 
IF  DELIPIIER  THEN 


CHAR»CUC1E  TFEN  return  GcTSLITERAL; 


CC; 


CALI  FLT: 
RETLRN  FERIOC; 


ENC 


ENC; 

IF  LEFTIFARIN  THEN 

cc: 

CALL  FLT; 

RETLRN  LFARIN; 

ENC: 

IF  RIGHTIPARIN  THEN 

oc; 

CALL  FLT; 

REURN  FPARIN; 

ENC: 

CC  FOREVER; 

call  PLT; 

IF  ENCJCFtrOKEN  THEN  RETURN  INPOTSSTR; 
ENC:  /•  CF  CC  FOREVER  •/ 

CETatcken; 


/•  ENC  CF  SCANNER  ROUTINES 

/*  SCANNER  EXEC 


•/ 


SCANNER!  PRCCECLREI 

IF(TCKEN:«CET»tr.KFNI  • INPUTSSTR  THEN 

IF  (CTP :«RESERVEOtwaROI  <>  0 THEN  TOKEN«CIRI 
ENC  scanner: 


PRINTIACCL'P:  FPCCfCURE; 
ACCu«(AccuP«ii«'»*: 
call  prJnT(.riaccumi ; 
ENC  FR  INTIACCUP ; 
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PRINTiKUHBEP:  FFCCEOURE < NUH8 t ; 

CECLAREIRUHE.ltCNTfKt  BYTE,  J D«TA( 100. 101  : 
CC  1»0  U i: 

CNT^C J 

OC  kHlLE  NUME  >>  (K:>J(ni; 

M.I>B«NOKa  - n; 

CM-CNT  ♦ i; 

EN  C * 

CALL  FRIATCHARCO*  ♦ CNTl; 

ENC: 

CALL  PRIKTCEARi *0*  ♦ NUHBI5 
END  PR  INTtALPEER ; 


/*  • • • ENO  OF  SCANNER  PROCEDURES  • • • »/ 
/»  * * ♦ . • SYMBOL  TABLE  CECLARATIONS  * ♦ • */ 


CURSSYM 

SYMBOL 

SYMBCHAOOR 

NEYTJSYMJENTRY 

HASHYMASK 

JRIVPE 

CISFLACEMENT 

CCCURS 

PYLEAGTH  • 

FLCYLEAGTH 

LEVEL 

RELY  IC 

LCCAT ICN 

JIARTYAAHE 

FCEYACCR 


ACCRESS,  /*SYMBOL  BEING  ACCESSED*/ 

BASED  CURYSYM  BYTE, 

BASED  CURtSYM  ACCRESS, 

BASED  NEXTtSYM  AOCRESS, 

LIT  '3FH*, 


/•I  LESS*/ 


/«•**»**  SYMBOL  TYPE  LITERALS  **•»*»*/ 


1 

tNRESCLVeO 

LIT 

•255' , 

1 

LABELSIYPc 

LIT 

•32' , 

1 

MLLTfCCCURS 

LIT 

■ 128* , 

1 

GBCUP 

LIT 

•6'  , 

1 

NCNJNLMERIC  Jin 

LIT 

*7*  , 

1 

alpha 

LIT 

•8'  , 

1 

ALPHAIKUH 

LIT 

•9' , 

1 

LI7JSPACP 

LIT 

■ 10* , 

1 

LHSCLCTS 

LIT 

• 11'  , 

1 

UTSZERP 

LIT 

• 12' , 

1 

NUHER ICSLITcPAL 

LIT 

• 15', 

1 

NUMERIC 

LIT 

• 16*  , 

1 

CCKP 

LIT 

•21*  , 

1 

ASED 

LIT 

•72', 

1 

A$NScC 

LIT 

•73*  , 

1 

1 

NUMSEC 

LIT 

•BO'  ; 

1 

1 

/*  A * « 

SYMBOL 

TABLE  RCUTI 

SETYACCRESS  : PR CCECUR E ( ACOR ) ; 

DECLARE  ACER  ACCRESS; 

i>mbolyacor(lccationi«ador; 

Eno  SETyaocress; 

GETYACCRESS:  PPCCEDURE  ADDRESS; 

RETURN  SYHBCLYADCR (LOCATION! ; 

END  CETYAOCRESS; 

GETYFCEYACCR:  FPCCEDURE  AOCRESS; 

RETURN  SYMECLYAOCRIFCBYAODRI ; 

End  getyfcbyaccr ; 

GETYTYFE:  PRCCECLRE  BYTE; 

RETURN  SYMBCL(SYTYPE I ; 

END  CETYTYPS: 

SETY1YRE:  PRCCE CLRE ( T YPE I ! 

DECLARE  TYPE  BYTE; 

SYReCL(S17YFEI*TYPE; 

ENO  SETYTYPE; 

getyleagth:  frccecure  address; 

RETURN  SYMeCLYACCR(FLOYLENGTH); 

ENO  getylengtm; 
getylevel;  fhcceclpe  byte; 

RETURN  <FR(<YMEOL(LEVFLI,A); 

EMC  getylevel; 

GETYCECI“AL!  PPCCEDURE  BYTE; 

RETURN  SYMBCLCLEVELI  ANO  OFH; 

ENC  getyoeciral; 

CETYPYLEAGTh:  PRCCEOURE  BYTE; 

RETURA  SYMBCL(PYLENCTF); 

EAD  GE TYPYLEAGTE ; 

BUILCISYMBCL;  FRCCECURE(LENI; 

DECLARE  LEA  BYTE,  TEMP  ADDRESS; 

TEMP»NE>!YSyM; 

IF  (NEXTlSYM:*.SYMaCL{LEN:>LEN  ♦ DISPLACEMENT! 

> MAXYMEMCRY  THAN  CALL  F AT AL YE RROR ( * S T • 1 ! 
CAU  FILL  ( TEMP.O  ,LEN!  ; 

ENC  ei  iLCISYMBCL ; 
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00545  i 

00546  2 

00*47  2 

00548  2 

(0549  1 

(0550  1 

00551 
C0SS2 
0C553 
00554 


AN0IC(,7*CCCl;8S:  PROCEDURE  (TrPEIlM  BYTE; 
CECLARE  1YPE1IN  BYTE: 

RETURN  TYPEJIN  AND  127; 

END  ANOiCUTSCCCLRS: 


00558 

(0559 

00562 

00563 

00564 

00565 
C0566 
C0567 
C0568 
(0569 
(0570 

00571 

00572 

00573 

00574 

00575 

00576 

00577 

00578 
(0579 
(0580 
C0581 
00532 
00583 
QC584 
C0585 

00586 

00587 

00588 
(0589 

00590 

00591 
C0592 
0C5S3 
0C594 

00595 

00596 
0C597 

00598 

00599 
(0600 
00601 
00602 
00603 
C0604 
CC605 
C0606 
(0607 
00608 
(0609 
(0610 
00611 
006  12 

00613 

00614 

00615 

coeit 

(0617 

00618 

00619 

(0620 

00621 

00622 

00623 

00624 

00625 

00626 

00627 

00628 
(0629 
(0630 

00631 

00632 

00633 

00634 

00635 

00636 

00637 

00638 

00639 
(0640 

00641 

00642 

00643 

00644 

00645 

00646 
(0647 
00648 
CC649 
(0650 
(0651 

00652 

00653 


1 

(ECLARE 

1 

PSTACKSIZE 

LIT 

•30'.  /• 

1 

VALUE 

(PSTACKSIZE)  ADDRESS, 

1 

STATESTACK 

(PSTACKSIZE)  BYTE,  / 

1 

VALUE2 

(PSTACKSIZE)  AOCRESS. 

1 

VARC 

(100) 

BYT 

1 

ID$STACK 

(20) 

ADDRESS, 

1 

IDJPTR 

BYIE, 

L 

MAXSBYTE 

BASED 

MAX4INT* 

1 

SUBtINO 

BYTE 

initial  (0) 

1 

CCN0(TYP6 

byte, 

1 

HCLDISECTICN 

ACDRESS 

t 

1 

HCL05SECJ ACER 

ACCRESS 

* 

1 

ScCTICNlFLAG 

BYTE 

INITIAL  (0) , 

1 

LSAOCR 

ACCRESS 

t 

1 

L5LENGTH 

ACCRESS 

1 

LJTYPE 

BYTE, 

1 

LSCEC 

BYTE, 

1 

CCNJLENGTH 

BYTE, 

1 

CCPPIL ING 

BYTE 

INITlAL(TRUE), 

1 

SP 

BYTE 

INITIAL  (255), 

1 

MP 

BYTE, 

1 

MPPl 

BYTE, 

1 

NOLCCK 

BYTE 

initial<falsej  * 

1 

U ,J,KI 

BYTE, 

/*INDICIES 

1 

STATE 

BYTE 

INITIaL(STARTS) t 

/*  TEMP  values  »/ 


/•  VALUE2  STACK*/ 
/»TEPP  CHAR  STCRE*/ 


BYTE, 


/«**«****  CCOE  LITERALS  »•••**• 


• »/ 


ACC 
'U8 
> UL 
OIV 
NEC 
STP 
ST  I 


RNO 


RET 

CLS 

SEP 

ERN 

CFN 

CPI 

0P2 

RGT 

RLT 

REO 

INV 

EOR 


ACC 

OIS 

STO 

LOI 


DEC 

STO 

STl 

ST2 

ST3 

ST4 

STS 


LOO 

LOI 

L02 

L03 

LD4 

LOS 

L06 


PER 

CNU 

CN5 

CAL 

RWS 

OLE 

ROF 

WTF 

RVL 

WVL 


SCR 

SOT 

§<-T 

SEO 

MCV 


/♦  THE  CCOE  LITERALS  ARE  BROKEN  INTO  GROUPS  DEPENDING 
CN  THE  TCTAL  LENGTH  OP  CODE  PRODUCED  FOR  THAT  ACTICN  */ 

/*  LENGTH  CNE  »/ 

LIT  <1',  /*  REGISTER  ADDITION  */ 

' /•  REGISTER  SUBTRACTION  */ 

/*  REGISTER  MULTIPLICATION  »/ 

/»  REGISTER  DIVISION  »/ 

/*  NOT  CPERATOR  »/ 

/•  STOP  program  •/ 


•2' 

•3' 

'4  ' 

•5' 

'6'.  . 

•7',  /»  STCRE  REGISTER  I INTO  REGISTER  0 */ 


LIT 
LIT 
LIT 
LIT 
LIT 
LIT 

/*  LENGTH  TkC  •/ 

LIT  'a*,  /*  ROUNC  CONTENTS  OF  REGISTER  1 «/ 

/»  LENGTH  THREE  •/ 
lit  '9',  /»  RETURN  •/ 

LIT  •!(',  /*  CLOSE  »/ 

LIT  • 11' , /‘SIZE  ERROR  */ 

LIT  '12',  /•  branch  »/ 

LIT  '13',  /•  OPEN  FOR  INPUT  */ 

LIT  '14',  /*  OPEN  FOR  OUTPUT  «/ 

LIT  '15',  /♦  OPEN  FOR  I-Q  •/ 

LIT  '16',  /•  REGISTER  GREATER  THAN  */ 

LIT  '17',  /•  REGISTER  LESS  THAN  */ 

LIT  '18',  /•  REGISTER  EC'JAL  •/ 

LIT  '19',  /•  INVALID  FILE  ACTION  •/ 

LIT  '2C',  /•  END  OF  FILE  REACHED  •/ 

/•  LENGTH  FCLR  »/ 

LIT  '21',  /•  ACCEPT  •/ 

LIT  '22' , /•  DISPLAY  */ 

LIT  '22',  /*  STOP  AND  DISPLAY  */ 

LIT  '24',  /*  LOAD  COUNTER  IMEOIATE  */ 

/*  LENGTH  FIVE  */ 

LIT  '25',  /*  DECREMENT  AND  BRANCH  IF  ZERO  »/ 

'26',  /*  store  numeric  •/ 

'27',  /»  STORE  SIGNED  NUMERIC  TRAILING  •/ 

'28',  /*  STCRE  SIGNED  NUMERIC  LEADING  •/ 

'29',  /•  STCRE  SEPARATE  SIGN  LEADING  */ 

'3C,  /•  STCRE  SEPARATE  SIGN  TRAILING  •/ 

'31',  /•  STCRE  COMPUTATICNAL  •/ 


LIT 
LIT 
LIT 
LIT 
LIT 
LIT 

/•  LENGTH  SIX  •/ 

lit  '32',  /*  LOAD  NUMERIC  LITERAL  */ 

LIT  '33',  /•  load  NUMERIC  */ 

LIT  '34',  /*  LOAD  SIGNED  NUMERIC  TRAILING  •/ 

LIT  '35',  /*  LCAO  SIGNED  NUMERIC  LEACING  •/ 

LIT  '36',  /*  LCAO  SEPAP.ATE  SIGN  TRAILING  */ 

LIT  *37',  /*  LCAO  SEPARATE  SIGN  LEADING  */ 

LIT  '38',  /•  LOAD  COMPUTATICNAL  •/ 

/*  LENGTH  SEVEN  ♦/ 

lit  '39',  /*  PERFORM  •/ 

LIT  '4C',  /•  CCMPARE  FOR  UNSIGNED  NUMERIC  */ 

LIl  '41',  /•  CCMPAPE  FOR  SIGNED  NUMERIC  >/ 

LIT  '42',  /«  CCMPARE  FOR  ALPHABETIC  */ 

LIT  '43',  /•  REWRITE  SEOUENTIAL  */ 

LIT  '44',  /•  DELETE  SECLENTIAL  •/ 

LIT  '45',  /*  read  sequential  •/ 

LIT  '46',  /*  WRITE  SECUENTIAL  «/ 

lit  '47',  /*  READ  VARIABLE  LENGTH  •/ 

LIT  '48',  /•  WRITE  VARIABLE  LENGTH  •/ 

/*  LENGTH  NINE  ♦/ 

LIT  '49',  /*  SUBSCRIPT  COMPUTATION  »/ 

LIT  '5C',  /*  string  greater  THAN  •/ 

LIT  '51',  /•  string  less  THAN  •/ 

LIT  '52',  /•  string  equal  */ 

LIT  '53',  /•  MCVE  •/ 


\ 


(0660  1 
C0661  1 

00662  1 
00663  1 

00666  1 

00665  1 

00666  1 

C0667  1 

(0668  1 
C066S  1 

(0670  1 

00671  1 

00672  1 

00673  I 

00676  1 

00675  1 

00676  1 

(0677  1 

CO‘78  1 

0067S  1 

00680  2 
0068 1 2 
00682  2 
00683  1 

00686  1 

00685  2 

00686  2 

(0687  1 

OC688  1 

C0689  1 

00690  2 

0C691  2 

0C692  1 

00693  1 

CC696  2 

00695  2 

0C696  2 

CC697  2 

0C698  3 

((699  3 

00700  2 

00701  2 

C0702  1 

00703  1 

C0706  2 

C0705  2 

00706  2 

007C7  2 

(0708  1 

((709  1 

(0710  2 

00711  2 

00  7 12  2 

00713  2 

C0716  1 

(0715  1 

C0716  1 

0C7I7  1 

(0718  2 

(0719  2 

(072C  2 

00721  2 

00  722  2 

00723  1 

00726  I 

C0725  2 

CC726  2 

00727  1 

(0728  1 

(0729  2 

(0730  2 

00731  2 

(0732  2 

00733  2 

(0736  2 

00735  2 

00736  2 

00737  2 

(0738  3 

(0739  2 

00760  2 

00761  2 

00762  3 

00763  3 

(0766  6 

(0765  6 

CO  766  6 

00767  6 

(0768  5 

(0769  6 

(0750  6 

00751  6 

(0752  3 

00753  3 

00756  3 

00755  6 

C0736  6 

C0757  6 

(0758  5 

00759  5 

(0760  6 

00  761  5 

00762  7 

00763  3 


/»  LENGT6  10  */ 
RRS  LIT  >56*, 
hr;  lit  •55'i 
RPP  LIT  •56', 

RRR  lit  »5T', 

R^R  LIT  •58*, 

OLR  LIT  •59S 


/•  RERO  RELATIVE  SEQUENTIAL  •/ 
/•  WRITE  RELATIVE  SEQUENTIAL  */ 
/*  READ  RELATIVE  RANDOM  •/ 

/•  WRITE  RELATIVE  RANDOM  •/ 

/*  REWRITE  RELATIVE  •/ 

/•  DELETE  RELATIVE  •/ 


/*  LENGT6  ELEVEN  */ 

MEC  LIT  *60',  /•  MOVE  EDITED  •/ 

/»  LENGT6  TURTEEN  •/ 

MNE  LIT  *61%  /•  MOVE  NUMERIC  EDITED  •/ 

/•  VARIABLE  length  •/ 

GOF  LIT  *62*1  /*  GO  DEPENDING  ON  •/ 

/*  BUUC  DIPECTIKG  CNLY  •/ 


INT  LIT  'GS*, 
BST  LIT  'AA*, 
TER  LIT  'tS'. 
SCO  LIT  '66*; 


/*  INITIALIZE  STORAGE  */ 
/*  SACK  STUFF  ADDRESS  •/ 
/*  TERMINATE  BUILD  */ 

/•  SET  CODE  START  •/ 

PARSER  ROUTINES  * • • * 


DIGIT:  PROCECURE  (CHAP)  BYTE; 

CECLARE  char  BYTE: 

RETURN  (CHAR<.*9'f  AND  ICHAR>=‘0'I; 

ENC  CIGIT: 

LETTEF  : PPCCECLFE  BYTE! 

RETURN  (CHAR>.'A*I  AND  ICHAR<='Z<I: 

ENC  LETTER; 

INVALlCtTYFE:  PPCCEOURE! 

(ALL  PP  IKTIEBRORI • IT* ) ! 

ENC  INVALlOnYPE; 

BYTESCLT:  PPCC ECLR E( C NESBYTE ) ; 

CECLARE  CNEIBYTE  BYTE; 

IF  (0UTPLTJPTR:=0LTPUT*PTR  ♦ 11  > OUTPUTJENC  THEN 
CC; 

CALL  WPITE»0UTPUT(.0UTPUT$BUFFI ; 

OUTPUT »PTP=. OUTPUT SBUFF; 

END: 

CLTPUTACFAR»CK£$BYTE; 

ENC  EYIEACUT; 

ADCRtCUT:  PRCCECLRE  (ADCRI! 

CECLARE  ACCF  ACCPESS; 

CALL  BYTEtCLT (LOW(ACCR) ) ; 
call  BYTEJCLTIHIGH  (AOOR) I ; 

ENC  ACCRSCUT: 

INCACCLNT:  P POCE CLRE ( CNT 1 ; 

CECLARE  CNT  BYTE; 

If  (N£XTJAVA1lAELE:*NEXT$AVAII.A0LE  + CNT) 

>MAXJIM*MEM  THEN  CALL  FATALSERRGR  ( • PC  • I : 

ENC  INCICCLNT: 


CNcSACCRlOPP:  PFCCEDURE(CODE.ADCR) ; 

DECLARE  CCCE  BYTE.  AOOR  ADDRESS; 

CALL  BYTEJCLT(COOE) ; 

CALL  ACCPSCLT (ACCR ) ; 

CALL  INCICCLNT (31  : 

ENC  CNESAODRSOPP ; 

NCTl IPPLIMENTEC : FRCCEDURE: 

CALL  PRINTJEPROR  CNI'i; 

END  NCTJIMPLIMENTED; 

MATCH:  PROCECURE  ACORESS; 

/*  CHECKS  AN  IDENTIFIER  TO  SEE  IF  IT  IS  IN  THE  SYMBOL 
TABLE.  IF  IT  IS  PRESENT,  CUSSSYM  IS  SET  FCB  ACCESS, 

CTFEBWISE  TFE  POINTERS  ARE  SET  FOR  ENTRY*/ 

CECLARE  (PC INT,COLLISICN  BASED  POINT)  ADDRESS,  (HOLD, II  BYTE; 
IF  VAROMAXA  ICJ LEN  ThEN 
VAPC*MAMIOSLEN; 

HCL0=0; 

CC  I«1  TC  VAFC; 

HOLC*HCLO*VARCm  ; 

ENC; 

FGINT«HASF  JTABSAOOR  ♦ SHLdHCLD  AND  HASHiMASK  I , 1 1 ; 


CC  FOREVER! 

IF  CCLL1SICN=0  THEN 


, ENCl 
ENO; 

PC1N7*CCLLISICN; 

PNC: 

ENC  match; 


clp»sym,collision»next$sym; 

CALL  BUILO$SYMBOL(VARCI  ; 

SYMBCLI PJLENGTHl-VARC i 
DC  I-l  TC  VARC; 

SYM8CL(START$NAME  + I I*VARC1 1 1 ; 

ENC; 

(ALL  SETiTYPEIUNRESGLVEOI;  /•  UNRESOLVED  LABEL  •/ 
RETURN  CURASYM; 


CUP*SYM*CCLLISI0N; 

IF  (H0LD!*GETAP»LENGTHI*VARC  then 

cc; 

io'wHILE  SYMBOL  (STARTANAME  ♦ 'I-  VARCdl! 

IF  ( l!*l*l»2HCL0  ThEN  RETURMIcuRASYM;.COLLIS!CM  ; 
END! 


1 


0C767 

C07£8 

C0769 

C0770 

C0773 

00774 

00775 

00776 

00777 
C0778 
00779 
C07SC 
C0781 
00782 

mil 

00785 
C0786 
00787 
C0788 
C0789 
CC790 
00791 
0C792 
0C793 
CC794 
C0795 
00796 
0C797 
(0798 
CC799 
00900 
00801 
CO  302 
C0803 
03804 
00805 
C0806 
00807 
00608 
(0909 
C0810 
00911 
00812 
00813 
00E14 
00615 
00816 

00817 

00818 
(0819 
00320 
00821 
00822 
00823 
00  824 

00825 

00826 

00827 

00828 
(0829 
(0830 
00831 
(0832 
00  333 
30834 
(0835 
C0S36 
00837 
00  838 
(0639 
(0840 
00341 
00842 
00343 
00844 
C0845 
00946 

00847 

00848 
(0849 

00850 

00851 

00852 

00853 

00854 

00855 
C0856 

00857 

00858 

iUVo 

C0861 
00862 
00863 
(0864 
00865 
C0866 
00867 
C0868 
(0  869 
(0870 

00871 

00872 

00873 

00874 
C0875 

00876 

00877 
rntlp 


<E7t^9LUE:  F8CCCCURE( NUMBI t 
DECLARE  AURE  ACCRESS: 

VALUECfF (•ALFB: 

ENC  8E79VALLE: 

SET$VALUE2:  FFCCEDURE ( AOOR I ; 

CECLARE  ACCR  AOCRESSi 
VALLE2(KF)>ACCR: 

ENC  SE7SVALLE2: 

SIEJCAT!  PRCCECLRE  BYTE: 

IF  (SUB*1NC:«SUBSIN0  * l|>8  THEN 
SUeJINC*!; 

RETURN  SLBiINO; 

END  EtBSCNT; 

CCCEJeYTE:  FRCC8CURE  (CODE); 

CECLARE  CODE  BYTE; 

CALL  3YTEiCLT(C0D6) : 

CALL  INC(CCIETU); 

ENC  CCDESeYTE; 

COCEJAOCRESJ : PRCCEOLPE  (CODE); 

CECLARE  CCCE  ADDRESS: 

CALL  ADCF»CLT(COCE) ; 

CALL  INC JCCL6T(21 ; 

ENl  CCOESAOCRESS : 

INPLTJNUMERIC:  FRCCECURE  BYTE: 

CC  CTR-l  TC  VAP.C: 

IF  NOT  DIGITIVARCICTRl)  ThEN  RETURN  FALSE: 

END; 

RETURN  TRUE; 

END  INFUTINURER  iC  : 

CCNVERTSINTEGER:  PROCEDURE  ADDRESS; 

ACTR=0; 

CC  CTR=1  TC  VARC; 

IF  NOT  CIGlt(VARC(CTRn  THEN  CALL  PR  I NTSERROR  ( • NN  • ) ; 
AJCTR*SFL( ACTRt3l+SHL( ACTR, 1)  + VARC(CTR)  - ‘O'; 

ENC; 

RETURN  ACTR; 

ENC  ccnvertuntecer; 

8ACKSTLFF:  FROCECLRE  <ACD1,A0021: 

CECLARE  (ACC1.ACC2)  ADDRESS: 

CALL  BY1E5CLT<eST); 

CALL  AOCR*CLr(AOcn ; 

call  ADCFSCLT (ADC2) ; 

ENC  BACKJSTLFF; 


UNRESOLVECJERANCF:  POCCEDURE: 

CALL  SETSVALLECNEXTiAVAILABLE  ♦ 
CALL  CNElACCRtOPPIERN.O); 

CALL  SET1VAILE2(NEXTiAvAILA8LE); 
ENC  LNRESCLVECIEPANCh; 


1): 


BACKtCCNC:  FFQCECLRE; 

CALL  BACKSTLFF (VALUE (SP-l) .NEXTtAVAILABLE ) i 
ENC  EACKSCDNC: 


SET18RANCH;  FRCCEDURE; 

CALL  SETJVALLE(N£XT»AVA1LABLE1 : 


END 


CALL  COCESACCPESS(O) 
Eetjeranch; 


KEEFiVALUES:  PRCCEDURE: 

CALL  SET1VALLE(VALUE(SP) ) ; 
CALL  5ET1VALLE2(VALUE2(SPI  ) : 
ENC  KEEPSVALLES: 


STANCARC9ATTRIELTES:  PROCEDURE ( TYPE f ; 
DECLARE  TYPE  BYTE; 

CALL  CCCE$ACCRESS(GET$FCBSACORI; 
CALL  CCCEIACCRESS(GcT»AOORESS); 
CALL  CCttlACCRESS(GET*LENGTHI: 

IF  TYPE^O  ’FEN  RETURN: 
CUR»8YR«8yReCL$ACCR(RELiIO) ; 

CALL  CCCEtACCRESS(GETSAOOP.ESS): 
CALL  CrCElEYTElGETALENGTHl : 

END  STANCAROATTRIBUTES; 


REAOtkRtTE:  PPCCECURE ( INDEX) : 

CECLARE  )NCEX  BYTE; 

IF  (CTR:*GETATYPE)»1  THEN 
DC: 

CALL  CCDE»BYTE(RnF*INDEX) : 
CALL  STANOARCSATTRIBUTES(O); 


END; 

ELSE  IF  CTP«2  TI^EN 


CC  ; 


CALL 

CALL 


CCCE18YTE(PRS+IN0EXI i 

stanoarcsattributesI  11 : 


end; 

ELSE  IF  CTR*2  TFEN 
CC : 

CALL  CCCEtBYTEIRRR+INOEXI : 
call  STANCAROtATTRlBUTESdl: 


136 


i 


OtV)  2 
.C880  2 

0088t  2 

00882  3 

00883  3 

0088^  2 
C088S  2 

CC886  1 

00(87  1 

(’0888  1 
U0889  2 

CC890  2 

CC891  2 

CC892  2 

0C893  2 

0089A  1 

ssiii  i 

0CC97  2 

0G898  2 

(0899  2 

C0900  2 

O’jSOI  3 
00902  3 

C0<.03  3 

30904 
CC905  ^ 

C0908  2 

00907  » 

CO  9 08 
C09  09 
(C91C 
00911 
C0912  i 
00913  2 

C0914  2 

C0915  2 

CC916  2 

00917  I 
C0918  ’ 


C0923 
30924 
C0925  2 

CC926  3 

00927 
C0928  3 

00929  3 

CC930 

00931 

00932  2 

C09  33 
0C934  3 

C0935  3 

00936  2 

00937  2 

C0938 
C0939  2 

00940  2 

C0941  2 

C0942  1 

C0943  I 
CC944  I 
C0945  2 

CC946  2 

00947  2 

C0948  2 

C0949  2 

(0950  2 

CC951  1 

00952  1 

CC953  1 

00954  2 

00955  2 

00956  2 

30957 
CC958  2 

(C959  I 
CC960  1 

CC961  ! 

C0962  2 

00963  2 

00964  2 

00965  2 

0C966  2 

QQ967  2 

00968  2 

(0969  3 

(C970  2 

C0971  2 

00972  1 

0C973  I 
00974 

75  i 

9??  I 

978  3 


e^SE  (F  CTR*4  TKE8 

’ cm  CtCEiBYTEiRVL  + INOEXI  i 
C3U  <1FNOFRCtATTiUBOTES(0>S 

m CAIL  FBIMSERRGRCFT*  I ; 

ENC  REACthRME; 

ARllFHETICinPE  : PROCEDURE  BYTE: 

IF  ( (LtTYPE  :>AN01CUTt0CCURS(L*TYPEi  O'NUMERICUITERAL  I 

CB  (L»1YPE<*CCMPI  THEN  RETURN  LtTYPE  - NUMERICtL  ITERAL  i 
CALL  INVAL ICtTYPE : 

RETURN  C: 

END  ARlTHPETICtTYPE; 

OELtRVT:  PRCCECLPEfFLAGi: 

CECLARE  fLAC  BYTE: 

IF  lCTR:»C£TtTYPE i«3  THEN 
c c • 

' IF  FLAG  THEN  CALL  COQEtBYTE t RWR) ; 

ELSE  CALL  CODE tBVTEI OLR ) : 

CALL  STANDAROtATTRIBUTESIll; 

RETIPM 

!f*^IcTR«2I  ANC  (NOT  FLAG)  THEN  CALL  CODEtBYTEIOLS  I ) 

ELSE  IF  (CTR04)  AND  FLAG  THEN  CALL  CCOE  tBYTEI RW5 ) i 
ELSE  CALL  INVALIOtTYPE; 

CALL  STANOARCtATTRIBUTES(O) , 

END  CELSRtiT: 

ATTRIELTES!  FPCCECURE; 

CALL  CCCEtACCFESS(LfAOOR) ; 

CALL  COCEtEYTE(LtLENGTH)  i 
CALL  CCCEtEYTE(LtCEC) : 

END  ATTRIBUTES) 

LOAOtLtlO:  PPOCECURE(StPTR); 

CECLARE  SIfTR  BYTE) 

IFKAtCTP:  rVAlUEl  StPTRl  XNDNtNUPERICtLlT  I OR 
(ACTR=NLPERICtLITERAL)  THEN 
CO 

L$ACDP=VALUE2(SPTB) ; 

LtlENGTF=CCMLENuT;!i 

LtTVPE=AICTR; 

PETLRN ; 

£NC: 

IF  Ati,TR<  = L IT12EBC  THEN 
CO 

: tTVPE  iLlACDRtsAtCTR; 

L9LENGT)-  = l; 

RETLPN ; 

END) 

CLRtSYP»VALLE(SIPTR); 

LtTYPE=GETlTYFE) 

LJLENGTh«GETtLENGTH) 

IICEC^GETJCECINAO 

IF(LJACCP:«VALUE2(StPTR))=0  THEN  L$AOCR=GET tADDRE SS ; 

ENC  LCACtLilC; 

LOACSPEG:  PPCCECLRE(PEG$NO,PTR) ) 

CECLARE  (REGliSO,PTR)  BYTE) 

CALL  LCACtmCIPTB); 

CALL  CCCEtBYTEILCC+ARITHMETICtTYPE) ) 

CALL  ATIfieLTES; 

CALL  CCOESeYTE(REGtNC): 

ENC  LCAOtREO 

STCREAREG:  PFCC ECURE I PTR  ) ; 

CECLARE  FTP  BYTE: 

CALL  LCACtLI IC(PTR) ; 

CALL  CCCEtBYTElSTO  ♦ AR ITHHET IC t TYPE  -1); 

CALL  ATTRIELTES) 

ENC  STCRESREC-) 

SICREtCONSTANT:  RROCECURE  ADDRESS) 

IF(MAXJINT1FEF:=MAXIINT$HEN  - VARCXNEXTIAVAILABLE 
then  call  FATALtERRORI 'PC* ) ) 

CALL  BYTElCLTdNT  ) ) 

CALL  ACCRJCLKPAXIINTIHEH)  ) 

CALL  ACCFJCLTICCNiLENGTH:»VARC)) 


00  CTR  • I TC  CCNtLENGTH) 

CALL  BYTEtCLTlVARCICTR)) ) 


ENC) 

RETURN  PAXIINTtMEP) 
ENC  STGREtCCNSTANT) 


NUPERICtLIT:  PRCCECURE  BYTE) 
CECLAPF  CHAP  BYTE) 

CC  CTR»1  TC  VAPO 


R»1  TC  VAPO 

IF  NCT(  DIGIT(CHAR;»VARC(CTRI) 

CP  (CHAP»'-()  OR  (CHAP*'*() 

CP  (CHAR**.*))  Then  RETURN  FALSE) 


ENC) 

RETURN  TPLE) 
END  NUPERICUIT  ) 


RCUNCtSTCPE:  PRCCEOUPE) 
IF  value(spx>o  then 
CC  ; 


CALL  CCCEtBYTE(PND)) 
CALL  CCCEtBYTE(LtOEC) ) 


call  STCRF}PEG(SP-l) ) 
END  PCLNOtStCPE) 


137 


AOCSSUe:  PRCC6CI.PE  (INOEXI; 
CtCLARE  INcex  BYTE: 

CAU  LCAtSFEGIOtMPPl): 

IF  VALUEISP-2IOO  THEN 
CCt 

CAU  ICAOtREGd  .SP-31  ; 
CALL  CCCESBYTE(AOO) ; 
CAU  CCCEABYTEISTI)  ; 

ENC: 

CALL  LCACtPECll.SP-l): 

CALL  CCCEtEYTEIAOC  * INOEXI; 
CALL  ACLAOiSTCRE; 

ENC  ACCtSUBi 


MLILTSCIV:  PRCC  ECLRE  ( I NOEX) : 
CEClare  index  byte; 

CALL  LCArtScGIO.MPPl); 

CALL  LCAC*FEC(l,SP-l): 

CALL  CCCEtEYTELPUL  INOEXJ  ; 
CALL  rclaoistcre; 

ENC  PLLTtCIV; 


CFECKl SUBSCR IFT : PROCEDURE; 

CLRtSVP=VALLE(HP) : 

IF  GETnVPE<FLLT$CCCURS  THEN 
CC: 

CALL  PFINTSERRCRLMS' ) ; 

RETLRA; 

EAO; 

If  Inplunlreric  then 
CC ; 

call  'ET*VALUE2(GET$A0CRESS  ♦ (GETiLENGTH  * CCNVERTtlNTEGER) ) ; 
RE  ;lrn; 

EAC; 

clrisym^aatcf: 

IF  < (CTR:  = GET1TYPEKNUMER1C  I OB  (CTR>CONP)  THEN 
CALL  PR  lATSERRCRI 'TE* ) : 

CALL  CA'EtACCPIOPP  (SCR.GETAAOCRESSI; 

CALL  CCCESeTTEI DUBJCNT) ; 

CALL  CCCEtEYTEIGETSLENGTH) ; 
call  setivallE2(Subunoi  : 

ENC  CFECXASLESCRIPT; 

lcaoalabel:  ffccecure: 

CLRt'YM«VALLEIMP) : 

If  (A$CTR:>CcT$AOCRESSK>0  then 

CALL  fiACxiSTUFPIAtCTR, V4LUE2IMP) >; 

CALL  SETTACCPESSI VALUE2(MP| ) ; 

CALL  SET JTYPEILAnELtTYPEI : 

IF  (ASCTR  :*G£TtFCetACDR)O0  THEN 

CALL  BACK1STUFF( AICTB.NEXTJAVAILABLE); 

JYPBOLSACCR (f CB*4CCR1*N£XTAAVAILABL£: 

CALL  CNE JACCf »OPPIRET,0) : 

ENC  LCACSLAEEL; 

LOAOtSECSLABEL : PRCCECURE; 
ajCTR»VALLE (fO|  ; 

CALL  SETIVALLE (HOLOJSECTION) ; 

HCLD$SECT1CA»AICTB: 

aictr«value,:  (fpi  : 

CALL  SET1V4LL£2(HCLD$SEC*A00BI ; 

HCLOJSFCIACCP  * aictr; 

CALL  LCACALAEEL:  ^ 

ENC  LCAOtStCTLAEEL; 

LABEL iAOCR:  FFCCECURE ( ACDR .HOLD  I ACORESS : 

CECLARE  ACER  ACCRESS; 

CECtARE  FCLC  BYTE; 

CLRJ SYP*ACCF i 

IF(CTR:*G£TnVPEI*LABSL*TYPE  THEN 
CO; 

IP  FCLC  THEN  return  getaaooress: 

RETURN  CETSFCBSAOOR; 

EAO; 

IF  CTROLNRESCLVEC  then  CALL  INVALI OATYPE ; 

IFHOLC  THEA 

’ a»ctr»get$4ocress: 

CALL  SETtADORESSINEXTSAVAILABLE  * 1); 

RETLRA  AtCTR; 

EAC; 

ASCTR«GET*f CEIAOCR; 

STHBOLSACCR (PCB$A0DRI«NEXT»AVAILA8LE  ♦ i; 

RETURN  AJCTP; 

ENC  labelsaccr; 


OICST  2 
.C1C9B  1 


COOE»FOP»CISFLAY:  PROCEDURE  (POINT); 

CECLARE  FCIAT  BYTE; 

CALL  LCACSLI  IC(PCINT)  : 

CALL  CNEIACCF»CPP(CIS,L»ADCRI: 

CALL  CCCi »c>Tt(L»LENGTH); 

ENC  CCCEAFORJC (SPI  AY; 

AAANITYPE:  ffccecure  BYTE: 

RETURN  (L»TYPE«ALPHA)  OR  I ATYPE-ALPHAtNUM) ; 

ENC  aianatype; 
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r 


UC9S 
Cl  100 
01101 
01102 
C1103 
01104 
C1105 
C1106 

01107 

01 108 
C1104 

ail? 

01112 

01113 

01114 

01115 

01116 
01117 
C1118 
C1119 

CU20 

01121 

01122 

01123 

01124 

01125 

01126 
01127 
C1123 
C1129 

01 130 

01131 
C113> 
0113  3 

01134 

01135 

01136 
C1137 
C1138 
01139 
Cl  140 

01141 

01142 
Cl  143 

01144 

01145 

01 146 

01147 
C1148 
Cl  149 
C1150 
C1151 
C1152 

01 153 

01 154 

01155 

01 156 

01157 
C11S8 
C115S 
C1160 
01161 
01162 

01163 

01164 
C116S 
C1166 
01167 
C1168 
C1169 
C1170 

01171 

01172 

01173 

01174 

01175 

01176 

01 177 
C1178 

ais’o’ 

01  \8l 
Cl  >8? 
01183 


01184 
0118‘ 


185 
01186 

01187 

01188 
CUBS 
Cl  190 
0i  191 
C1192 
C1193 

01194 

01195  Z 

01196  2 

01197  2 

C1198  2 

Cl  199  .2 
C1200  2 

C1201  1 


NOlllMECEPS  PRCCECURE  BYTE  3 
RETURN  LSOECOO: 

ENO  KCTSINTEGERI 


KURERICJTYFE  : FRCCEOUPE  BYTE; 

RETURN  (L*TYF£>»NU1'ERIC1  AND  «L*TYPE<»C0MP1 1 
ENO  NLFERlCtlYPEi 


GENSCCMPARE:  PPCCECURE: 

DECLARE  «H*1YPE.H$CEC1  BYTE, 

(MAOCPtl-SLEAGThl  ADDRESS: 


CALL  LCAC»L|1C<MP1 ; 
L3TYPEfANDlCLT*OCCURS(L*TYPEl  I 


IF  CCN011YPE*3  then  /•  COMPARE  FCR  NUMERIC  •/ 

CO: 

IF  AJAMTVPE  OR  ( L»TYPE>CDMP1  THEN  CALL  INVAL 10$  TYPE : 
IF  L$TYPE«NUMERIC  THEN  CALL  COOESBYTE (CNU) 1 
ELSE  CALL  CCCE$BYTE( CNS 1 ; 

CALL  CCCE$ADCRESS(L$A00R) : 

CALL  CCCE$A0CRESS(L$LENCTH1 : 

CALL  setieranch: 

END: 

ELSE  IF  CCNC1TYPE*4  THEN 

cc: 

IF  AL'MEPIC$TYPE  THEN  CALL  INVAL  lOSTYPE : 

•CALL  CCCE$BYTE(CAL)  : 

CALL  CCCESAOCRESSILSAODRI ; 

CALL  CCCESAOCRESSLLILENGTH  : 

CALL  ScT$8RANCH: 


EKC; 

ELSE  DO: 


IF  AUMERICSTYFE  THEN  CTR=1; 

ELSE  CTP=0: 

h$type=l$type; 

H$CEC=L*CEC; 

H$ACCRsL$ADDR : 

h$lengtf=l$length; 

CALL  LCAC$L$ I0( SPl ; 

IF  NUMERIC3TYPE  THEN  CTR»CTR+l; 

IF  CTR=2  THEN  /*  NUMERIC  COMPARE  ♦/ 

DO : 

CALL  LGAC$REG(0,MP1; 

CALL  LCACJREOU  , SPl  ; 

CALL  CCCE$BYTE( SUBl : 

CALL  CCDE$6YTE(RGT  ♦ CONOSTYPEl: 

CALL  SET$8RANCH: 

ENC; 

ELSE  cc: 

/*  ALPHA  NUMERIC  COMPARE  •/ 

IF  (HSOECOQl  OR  (H1TYPE*C0MP  1 

OR  (LSOECOOl  CR  ( L$  TY  PE*CCMP  1 

OR  IH$L  ENGTHOLILENGTH)  then  CALL  INVAL  ICFTYPE  ; 
CALL  C0DE$BYTE(SGT+CCN0$TYPE1 ; 

CALL  CCCcSAOORESSIhiACCRI ; 

CALL  COCE$AOORESS(L$AOORl : 

CALL  CQOESACORESSLHALENGTHI : 


ENC; 


ENC; 

ENC  CENSCOMPAPE; 


MCYESTYPE:  PPOCECURE  BYTE; 
DECLARE 

FCLDATYFE  BYTE, 
ALFMAINLMIMCVE 
A«N$EOSMCVE 
NLMERICIFOVE 
MEOAMCVE 


LIT 

LIT 

LIT 

LIT 


'O'  , 

la'. 

•3*  1 


lltype=anc$cut$occurs(l$typei ; 

IF ( (HCLC1TYPE:*AN0JCUT$CCCURS(GET$TYPEI )*GRCUP1  OR  < L $TYPE»GPOUPI 
TFEN  RETURN  ALPHA $NUM$MCVE : 

IF  hOLO$TYFE»ALPHA  THEN 

IF  AIANJTYPE  CR  ( L$TYPE«A$ED I OR  (L $TYPE»A$N$E0 1 
TFEN  RETURN  AL PHA $NUM $MQVE : 

IF  holoitype*alpma$num  then 

cc; 

IF  NOTIINTEGER  THEN  CALL  I NVAL IO$TYPE ; 

PETLPN  ALPHA SNUMSMOVE; 

END: 

IF  <H0LC1TYP£>«NUMERIC1  AND  <naLD$TYPE<=COMPl  THEN 

cc: 

IF  (l$type*alphai  or  <lityfe>compi  Then  call  invalioatype : 
RETURN  NUMERICAMQVE: 

END; 

IF  holditype«a$n$ec  then 

CC  5 

IF  NOTlINTcGER  THEN  CALL  INVALIOSTYPE ; 

RETURN  A$N$EC$MCVE; 

ENC; 

IF  HOLOlTYPf.AAED  THEN 

IF  AAANATYPC  CR  (L1TYPE>C0MP|  then  return  AINSEOIMCVE; 

IF  HuLOlTYFE'NUMtED  THEN 

If  numericstvpe  or  (l$type*alpha$numi  then 

RETURN  N$EC$MOVE: 

CALL  INV*.,  ICITYPE  : 

RETURN  C: 

ENO  MCVEi'.YPE; 


J 
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oi2di  i 


CEMK^^E:PRCCECLRES 

LENGThl  «OCRE£St 
4CCR1  «CCRE|S, 

E>1R*  rccreIe; 

^CCSACOtLEN:  PROCECURE: 

CAU  CCCESADORESSUOORII  : 

CALL  CCCE*ADCRESS(LtAODRl ; 

CALL  CCCE$AOCRESS(LSlENGTEIs 
ENC  AOCIACOLEN; 

CCOEIFCREECIT:  PRCCEOURE; 

CALL  accsaooslen: 

CALL  CCCESAOORESSCGETtFCStAOORI  : 

CALL  LCACtLf IC(MPPl); 

CLR(SYH«VALLE(SPI : 

IF  (A00Rl:>VALUE2(SPU*0  THEN  ACCRl>GETtACCRESS; 
LEACIH1«CET1LENGTH; 

CC  CASE  KCVEITYPEI 

to  ALPHA  NUPERIC  HOVE  •/ 


IF  LENGTHl>LSLENGTH  THEN  EXTRA«LENGTH1-LSLENGTH; 
ELSE  DO; 

EXTRA-0: 

L»LENGTh=LENGTHl: 

END; 

CALL  CGDESBYTf (MOV) ; 

CALL  aocsacoalen; 

CALL  COCEAAOORESS(EXTRA)  ; 

ENC; 

/•  ALPHA  NUMERIC  EDITED  */ 

DO: 

CALL  CODESBYTEIMEOI ; 

CALL  CCDEIFCRSEOIT : 

ENC; 

/*  KUMEPIC  MCVE  •/ 


CALL  LCA0»REG(2,MPPl) ; 
CALL  SrCfiE*fi£G(SP): 


/*  NUMERIC  EDITED  MOVE  */ 


CALL  CCDEFBYTEIMNE) ; 
CALL  CCOESFORSEOIT; 
CALL  CCOEiBYTE(L*CEC) ; 


Call  CCCESBYTE(GETtDECIMAL) ! 


ENC; 

END  CENtMOVE; 


CODEtGEN:  PRCCECURE  ( PRCDUC.T  ION  1 ; 

CECLARE  FRCCLCTICN  BYTE) 

IF  PR’MJPRCC  then 

cc: 

CALL  CPLF! 

CALL  PRINTCHARSPCUMDI ; 

CALL  FRINr$NUMBER(PROOUCTICN): 

ENC; 

CC  CASE  FRCCLCTICN; 

/*  PROCUCTICNS*/ 

/«  CASE  0 NCT  USED  •/ 

• 

/•  1 <P-OIV>  i:*  PROCEDURE  DIVISION  <USING>  . <PRCC-80DY> 


COMPILING  - FALSE; 
IF  SECTICNSFLAG  Th 


C12SO 

01291 

\ 

/• 

01292 

3 

91293 

3 

0I29A 

3 

D129S 

» 

/• 

C1296 

01297 

C1296 

\ 

3 

0l|99 

C1300 

3 

/• 

3 

icnsflag  Then  call  loaossecslabel: 


2 <USINC>  USING  <IO-STRING> 

CALL  NCTI  IMPLIMENTEO;  /•  INTER  PROG  COMM  •! 

i <EMPTY> 

; /•  NO  ACTION  RECUIRED  */ 

A <IC-STRING>  <IO> 


F 


CUoc 

(1401 

91402 


l!i 


/*  23 

CCl 


GC  <I0-$TRIN6>  CEPENOING  <IC> 


•/ 


C«U  CCCE(BYTE(GOP); 

CPU  CCCEIBYTEIIDIPTRI  ; 
CURt!VP>VALUE(SPI ; 

CPU  CCCEPBYTEIGETtLENGTHI  : 

|CCEtAOuRESS(GET$AOORESSI; 


ENC: 


. C TO  ICSPTR; 

CPU  CCOEPAOORESSILABELPPOORdOSSTACiCnDlPTill.lM  : 


HOVE  <IIT/1D>  TO  <SUBIO> 


EKOt 

/•  24 

CPU  GEMPCVEl 

/•  25  OPEN  <TYP£-PCT1CN>  <I3> 

CALL  ONEIACCRSOPPICPN  ♦ VALUE(HPPl),  GET SPCEtADOR I ; 

/»  2«  PERFORM  <1D>  <TMRvi>  <FINISH> 


cc: 


ENC: 


CECLARE  (ACOR2.AOOR3I  ADDRESS; 

IF  VALUEISP'1T>0  then  ADDR2>LABELFADDR(VALUE(PPPl).0i; 
USE  ACCR2-LABELSAD0R(  VALUE tSP-l  ),0)  : 

IF  (PCCR3:<VALUc2ISP) l<C  THEN  AOOP3*NEXTtAVAt LABLE  * 7; 
ELSE  CPU  BACKST0FF(V4LU6(SP).NEXT*AVA1LABLE  ♦ 71; 

CALL  CN E SADDRtCPP; PER, label PADDK (VALUE (HPPl  1 , 11  I ; 

CALL  CCCESADCRESS(ACDR2I : 

CALL  CCCESADORESS(ADOR3I : 


/•  27 

CALL  NCTIIPPLINENTEC; 
/•  28 

CC ; 


<REPD-IO 

/*  GRAMMAR  ERROR  */ 
STOP  <TERMINATE> 


ENC; 


IF  VALLE(SPI*0  THEN  CALL  CODCiBYTEI STPI : 
ELSE  CALL  CNE SAOOR POPP( STD, VALUE ( SP ) I : 


/♦ 

/» 


29 

29 


<CCN01TI0NPL> 


CALL  BACNSCCNC; 
/»  30 

CALL  BPCKICCNO; 


/• 

/* 


31 

31 


<ARnHHETIC>  <SIZE-ERROB> 
<IMPERATIVE> 


<FILE-ACT>  <INVPLIO>  <IMPERATIVE> 


IF  <CONDITICN>  <ACTION>  ELSE 
CIMPERATI VE> 


• / 

4/ 

•/ 


•/ 


♦ / 


• / 

*/ 


•/ 


*/ 

•/ 


CC: 

ci4se 

CPU  ePCKSTUFFI 

VALUE (MPP 11 ,VALUE2(SP-21 1 : 

C145S  < 

CPU  backstuff; 

value (S P-21,  NEXT AA VAIL ABLE  1 ; 

C14A0 

ENC: 

01461 

01462 

/• 

32 

<RE40-ID>  <SPECIAL>  <IMP£RPTIVE> 

•/ 

01463 

01464 

CALL  ePCFICCNO; 

01465 

01466 

/* 

33  <ARITHMETIC>  ADO  <L/1D>  <OPT-L/ID>  TO  <SLBIO> 

*/ 

01467 

/• 

33 

<RCUND> 

*/ 

C1466 

C1469 

C1470 

01471 

CPU  ACCISUEIOl: 

/» 

34 

DIVIDE  <L/IC>  INTC  <SU3IC>  <RCUN0> 

•/ 

01472 

01473 

C1474 

CALL  MLLTIClVdl; 

01475 

/* 

35 

MULTIPLY  <L/IO>  6Y  <SUB10>  <RCUNC> 

•/ 

01476 

01477 

CALL  MULTtOIViOl: 

C1478 

01479 

/• 

36 

SijBTRACT  <L/tO>  <CPT-L/IC>  FROM 

*/ 

C1480 

C1481 

/• 

36 

<SUBID>  <ROUND> 

*/ 

01482 

01483 

01484 

CALL  ACCISLEUl; 

/• 

37  <F1LE-ACT> 

DELETE  <10> 

• / 

01465 

01486 

01467 

CALL  CELIRNTiOl; 

01466 

/• 

36 

REWRITE  <I0> 

*/ 

(1469 

(1490 

CALL  OELIPhTdl; 

01491 

01492 
C1493 

/• 

39 

WRITE  <ID>  <SPEC1AL-ACT> 

• / 

01494 

i\tn 

CALL  REACiNRITEIll: 

/• 

40  <CCNDITtCN> 

<LIT/ID>  <N0T>  <CCNC-TYPE> 

• / 

01497 

(1496 
(1499 
015OC  , 

CALL  GENICCRFARE; 

/• 

41  <CCNC-TYPE> 

:<•  NUMERIC 

• / 

l!i 

01*04  ; 

CCNDATYPE«3 ( 

/. 

42 

alphabetic 

• / 

01505  J 

01506 

01507 
01*08 

ccncitype.a; 

/• 

43 

<CCMPARE>  <LIT/IO> 

• / 

01509 

7l  • 1 0 

CAIL  RFEFtVALUES; 
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ai6i9  3 
(1(20  3 

01(21  3 

01(22  3 

01(|3  I 

01«2«  I 

01(29  3 

I 

C1(2B  I 
01(20  I 
01(30  3 

01633  3 

01(36  3 

01(39  3 

01(36  3 

01(37  3 

01(38  3 

01(39  3 

(1(60  3 

01661  3 


/*  66  <$PECIAL-ACT>  <WHEN>  ADVANCING  <HOH-MANV> 

call  NC111PFL1HENTED:  /*  CARRACE  CCNTRCL  */ 

/»  67 

I /*  AO  ACTICN  REQUIRED  */ 

/»  68  <k(EN>  : BEFORE 

CALL  NOTi IFPLIMEATEO:  /•  GARBAGE  CCNTRCL  •/ 

/*  69  AFTER 

call  NOTIIFPLIMENTEOI  /*  CARTAGE  CCNTROL  •/ 

/»  70  <HCk-MANY>  «!»  <INTECcR> 

CALL  NOTtlPFLIHEKTEC:  /*  CARRAGE  CCNTRCL  •/ 

/•  71  PACE 

CALL  NCTI IPPLIHENTEOI  /•  CARRAGE  CCNTROL  */ 

/•  72  <7VPE-ACTICN>  :t-  INPUT 

: /•  AO  ACTICN  REQUIRED  - VALUEISP)  ALREADY  ZERO  */ 


CK69  3 
(1(90  3 

01(51  3 

01692  3 

01(53  3 

01(96  3 


01(59  3 

(1(60  3 

01661  3 

01(62  3 

(1(63  3 

Cl((6  3 

01(69  3 


call  SETSVALUEIl): 


CALL  EETIVALLEI2) : 


Cl(69  3 

(1(70  3 

01671  6 

01(72  6 

01(73  3 

C1676  3 

Cl(7i  3 

nm  I 

01(78  6 

CK79  6 
(1680  5 


01(83  6 

01686  3 

01689  3 

01686  3 


(1(90  3 

01(91  3 

htti  I 

mn  i 

iiiVi  i 

hn  I 

C ,700  3 

I 8i  I 

01703  3 

01706  3 

01705  3 

OM06  3 

I 

C 709  6 

illK  A 


i 

1723  3 


75  <SUBIO>  <SUBSCRIPT> 

1 /•  LALLE  ANC  VALUE2  ALREADY  SET  »/ 

76  <1D> 

i /•  AO  ACTICN  RECUIREO  */ 

77  <1MEGER>  <INPUT> 

CALL  SETiVALUEICCAVERTMNTEGERI  : 

78  <IC>  <INPUT> 

CC  t 

CALL  SETAVALUE(HATCH) : 

IF  CETITYPE-UNRESaLVEO  THEN  CALL  SETiVALUEZINEXTlAVAlLABLE I 

EAC: 

79  <L/IO>  <INPUT> 

cc: 

IF  AUPERICSLIT  THEN 
DC; 

CALL  SET*VALUE(NUMERIC*LITERAU  ; 

CALL  SET$VALUE2ISTCRE*C0NSTANT) : 

ENC  * 

ELS^  CALL  SETtVALUEIMATCHI : 

ENC: 

80  <SUBSCRIPT> 
i /*  AC  ACTICN  RECUIREO  */ 

81  ZERO 
CALL  SETIVALUEILITSZEROI: 

82  <SLBSCR1PT>  : <ID>  ( <1NPUT>  I 
CALL  CHECKlSUeSCRIPTt 

83  <QFT-L/10>  <L/ID> 

: /•  AO  ACTICN  RECUIREO  *7 

86  <EPPTY> 

: /*  VALLE  ALREACY  SET  •/ 

85  <NA-LIT>  J !•  <LIT> 

CC: 

CALL  setsvalueinonsnurericsliti : 

CALL  fETSVALUE2(ST0REtCCNSTANT): 


CALL  SETIVAltEILlTtSPACEl : 

87  QUOTE 
CALL  SETIVALUEILITtOUOTEi: 

88  <LITERAL>  <NN-LIT> 

1 /•  AO  ACTION  RECUIREO  •/ 
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<1NPUT> 


IF  NOT  NUHEPICUIT  THEN  CALL  INVALI CITVPE ; 
CALL  5ETSVALUE(NUPERICSL1TERALI; 

CALL  SETtVALUEZiSTOREtCCNSTANTI: 


CALL  SETtVALUEtLITtZEROI: 

91  <LI't/lD>  : s»  <L/I0> 
i /*  NO  ACTION  REQUIRED  */ 


/•  NO  ACTICN  REQUIRED  •/ 

93  <CFT-LIT/I0>  :«•  <LIT/ID> 
/*  NO  ACTICN  REQUIRED  */ 


/*  NO  ACTICN  REQUIRED  •/ 


95  <PFCCRAM-ID> 
CALL  NCTJ  INFLIMENTEO; 


/•  INTER  PROG  COMM  */ 


LEJ9  1 
1805  1 


: /•  NO  ACTICN  REQUIRED  •/ 

/•  9T  <PEAC-.IO>  !!*  READ  <IC> 

CALL  REAClkRITEIOl t 

ENC;  /•  END  OF  CASE  STATEMENT  */ 
END  CCCESGEN: 

GETINl:  PROCEDURE  BYTE; 

RETURN  INOENl (STATE) : 

ENC  CETINl: 

GETINi:  FBCCECLBE  BYTE; 

RETURN  INCEX2(STATE1 ; 

ENC  CETIN2: 


INCSP:  PRQCECURE; 

VALUE(SF:°SF  * 1I>0: 
VALUE2(Sr)<C; 

IF  SP  >»  PSTACKSI2E  1 


/•  CLEAR  THE  STACK  kMLE  INCREMENTING  »/ 


IF  SP  >»  PSTACKSI2E  THEN  CALL  FATAL SERROR <■ SO* ) : 
ENC  INCSP; 

LCCKAMEAC:  FRCCEDURE: 

IF  NCLCCK  TEEN 

cc: 

CALL  SCANNER: 

' NCLCCN«FALSE : 

IF  FRINTITOKEN  ThEN 
DC; 


call  PRINTINUMBERITCKEN); 
CALL  PR  INTSCHARI • •) ; 

CALL  printsaccum: 


ENC: 

END  LCCKAHEAC; 

NCSCCNFlICT:  PRCCEDURE  (CSTATE)  byte: 

CECLARE  (CSTATE.I ,J,K)  BYTE; 

J'Inoexucstatei: 

K»J  ♦ INCEX2ICSTATE)  - 1: 

CC  I-J  TC  K; 

IF  REaCKI  I-TCKEN  THEN  RETURN  TRUE: 

ENC; 

RETURN  FALSE: 

ENC  NCICCNFLICTI 

RECOVER!  PRCCECURE  BYTE: 

CECLARE  ISP  BYTEi  RSTATE  BYTE; 

CC  FOREVER; 

tsf.sp: 

CO  NHIIE  TSP  <>  255: 

IF  NO$CCNrLICTiRSTATE!  = STATESTACK(TSPH  TFEN 
DC;  /*  STATE  WILL  READ  TOKEN  •/ 

IF  SPOTS?  then  SP  ■>  TSP  - I; 

RETURN  RSTATE: 

ENC; 

TSf  - TSP  - 1: 


ENO; 

ENC  RECOVER) 


/*  TRY  ANCTHER  TOKEN  •/ 
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00002 

1 

/• 

COBOL 

INTERPRETER  •/ 

00C03 

1 

OOCOA 

cocos 

C0006 

1 

lOCh: 

/*  LOAC  POINT 

• / 

{ 

/* 

GLOBAL  CECLARAT 

IONS  AND  LITERALS 

aocqi 

1 

QOC08 

1 

CECLARE 

cocos 

1 

eocio 

1 

LIT 

LITERALLY 

•LITERALLY', 

00011 

1 

BOOS 

LIT 

•5H',  /•  ENTRY 

C0C12 

1 

BCCT 

L IT 

•O', 

•13‘, 

1 

CR 

LIT 

OOOIA 

1 

LF 

LIT 

•10«, 

hm 

1 

TRUE 

LIT 

•I*. 

1 

false 

LIT 

•0* , 

•WHILE  TRUE'; 

coo  17 
OOC18 

1 

1 

FOREVER 

LIT 

•/ 


mi 

1 

1 

/•  UTIL 

ITY  VARIABLES 

♦/ 

OOC21 

1 

CECLARE 

00022 

1 

QQ023 

OOC2A 

1 

INCEX 

BYTE, 

ACCRESS, 

1 

AiCTR 

C0C25 

1 

CTR 

BYTE, 

accrEss. 

CCC26 

1 

BASE 

OOC27 

1 

asBYTE 

EASED  BASE 

BYTE, 

ADDRESS, 

00028 

1 

BtACCR 

EASED  BASE 
ACCRESS, 

C0C29 

1 

FCLD 

C0030 

1 

HIEYTE 

EASED  HOLD 

BYTE, 

00031 

1 

HRACCR 

EASED  HOLD 

ADDRESS, 

00C32 

1 

C0C33 

1 

0003A 

00C35 

C0C3E 

1 

1 

1 

/»  CCDE 

FCINTERS  •/ 

CODEISTART 

LIT 

1 

'2000H' , 

Q0C37 

1 

PPCGRAKSCCUN7CP  ^DCRESS* 

C0038 

1 

CSPYTE 

BASED 

PRCGPAMSCOUNTER 

OOC39 

1 

CIAOCR 

BASED 

PR0GPA«4CL‘UNTER 

COCAO 

1 

COCAl 

1 

000A2 

1 

/♦  * ♦ 

♦ * GLOBAL 

INPUT 

AND  OUTPUT  RC 

OOCA3 

1 

COCAA 

1 

COCAS 

1 

CECLARE 

C0CA6 

1 

CURRENTRFCe 

ACCRESS, 

000A7 

1 

STARTJCFFSET  LIT 

'36'  ; 

BYTE, 

>lCCSESSi 


HCM:  PRCCECLRE  (F,AI: 

CECLAR6  F EYTE,  A ACCRESS; 
GC  TC  eccE: 

END  PCNl; 

HCN2:  FROCECLRE  (F.A)BYTE: 

CECLARE  F BYTE,  A ACCRESS: 

GC  TC  eccs: 

END  PCN2; 

PPINTICHAR:  PPCCECLRE  (GEAR): 
CECLARE  CEAP  BYTE: 

CALL  MCM  (2, CHAR); 

ENC  printicear: 

CRLF:  PRCCECLRE; 

CALL  printj'eap.icri  : 

CALL  PPIATICEAR(LF) ; 

ENC  CRLF; 

PRINT;  PRQCECURE  (A); 

CECLARE  A ACCRESS: 

CALL  CRLF: 

Call  mcmis.a); 

END  PRINT; 


READ:  PRCCECLRE(A); 

CECLARE  A ACCPESS; 
call  MCM  (1C, A)  ; 
END  READ; 


PRINTJERRCR:  PRCCECURE  (CODEC 
CECLARE  CCCE  ADDRESS; 

CALL  CRLF: 

CALL  P0INT}CEAR(EIGH(C00EI  I ; 
CALL  PRINTtCEAR(LCH(COOE) ); 

END  prIntserrcr; 


FATALIERROR:  PRCCEOURE(CCDE  I : 
CECLARE  CCCE  ADDRESS: 

CALL  PR  INT!£RRCR(C0CE) : 

Call  tiee(ic): 

/♦  CEBCG 
GC  TC  BCCT: 

DEBUG  »/ 

ENC  FATALtERPOR; 


OPEN!  PROCrClRE  (ADCR)  BYTE; 
CECLARE  ACCP  AOCRESS; 
RETURN  pcn;(ie,aocr) ; 

ENC  CPEN; 


B0I07 

coloe 


CLCSE:  PRCCECLRE  lADDBC 
CECLARE  ACtn  ADCRESS; 

IF  RON2(16,ACCRK>0  THEN  CALL  FATALAERROR  ( 'CL*  I ; 
ENC  CLCSE; 
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UU  I 1 1 
00112 
00113 
001  M 

00115 

00116 

00117 

00118 
C0119 
C0120 
00121 
C0122 
00123 
00126 
C012! 
C0126 
00127 
(0128 
00129 
C0130 

00131 

00132 
C0133 
00136 

00135 

00136 

88i‘ll 

C0139 

C0160 

00161 

00162 

C0163 

00166 

00165 
00  166 
00167 
C0168 
CO  169 
C0150 

00151 

00152 
C0153 
00156 
C0155 
00156 
CO  157 
C0158 
C0159 
CC160 
00161 
00162 
00163 

00166 

00165 

00166 
00167 
C0168 
CC169 
CO  1/0 

00171 

00172 

00173 
00176 

00175 

00176 

00177 
C0178 
C0179 
CC180 
00181 
CC182 
00183 
00186 
CC18  5 
C0186 
00107 
C0188 
C0189 
(CISC 
CC191 
0C192 
CC193 
00196 
CC195 
CC196 
C0197 
C0198 
CC199 
(0200 
00201 
0020  2 
00203 
(0206 
C0205 
CC206 
00207 
C0208 
(0209 
(0210 
00211 


DELETE:  PRCCEOLRE: 

CALL  MCM119,CURRcNT*FCB)  ; 

END  DELETE: 

NAKE:  PRDCECLRE  (ADCPl; 

CECLARE  ACCR  ADDRESS: 

IF  K0N2(22tA0CR)<>0  THEN  CALL  FATALSERROR ( 'PE' 1 1 
END  HAKE; 

SETiCPt:  PRCCECLRE; 

CALL  HCM(26,CURRENT*FCB*  STARTiOFFSETl ; 

END  SETACHA; 

DISKJREAC:  FPCCECLIRE  BYTE: 

RETURN  PCN2 (20, CURRENT AFCBl ; 

END  CISKAREAC; 

DISKANRITE:  PPCCECURE  BYTE; 

RETURN  PCN2  (21 iCURRENTtFCBI ; 

END  ClSKSkRITE; 

/**«««*****  UTILITY  PROCEDURES  •*»*•♦»»*♦»»**/ 


DECLARE 

SLBSCRIPT 


(8  I 


ADDRESS; 


RE':  PRCCECLPECACCRI  ADDRESS; 

/*  THIS  FRCCECURE  RESOLVES  THE  ADDRESS  OF  A SUBSCRIPTED 
IDENTIFIER  CR  A LITERAL  CONSTANT  ♦/ 

CECLARE  ACCR  ADDRESS: 

If  ACOR  > 32  TI-EN  RETURN  AOOR; 

IF  ADOR  < 9 TfEN  RETURN  SUBSCR I PT ( ADOR ) ; 

DC  CASE  ACCR  - 9; 

RETURN  .'O': 

RETLRN  .'  '; 

RETLPN  .'  '; 

ENC; 

RETURN  C: 

ENC  RES: 

MOVE:  PROCEDURE (FRGH , DE ST  I NATI ON ,CCUNT 1 ; 

CECLARE  (FRCP, OeSTINATICri, COUNT)  ACORESS, 

(F  EASED  FRCP,  D BASED  DESTINATICN)  BYTE; 

DC  WHILE  1CCLNT:*CGUNT  - 1|  O OFFFFH; 

0-F; 

FRCP=FRCH  ♦ l; 

DESTINATION^DESTINATICN  ♦ 1; 

END; 

END  PCVE; 

fill:  PRCCECLREICESTINATION, COUNT, CHARI: 

CECLARE  (DESTINATION, COUNT)  ADDRESS, 

(CHAR.C  EASED  DESTINATICN)  BYTE; 

DC  while  <CCLNT:=CCUNT  - l)<>  OFFFFH; 

C*CPAR  ; 

OEST INATICN'CESTINATION  ♦ i; 

ENC; 

ENC  fill; 

CCNVERTITOIHEX:  PROCEDURE ( POI NT ER.CCUNT I ADDRESS; 

CECLARE  fCINTE.R  ADDRESS,  COUNT  BYTE; 

AICTR,:0; 

EASE*PCINTEP  : 

CC  CTR  » 0 TC  CCUNT; 

A1CTP«SHL(A»CTR,3)  ♦ SHLIAICTR,!)  ♦ BlEYTE(CTR)  - • 

ENC: 

RETURN  A5CTR; 

ENC  CCNVERTiTClPEX: 


CECLARE 

BRANCHIFLAG 


BYTE 


CODE  CCNTRCL  PROCEDURES 


INITIAL(TRUE); 


INCIFTR:  PRCCECLRE  (CCUNT); 

CECLARE  CCLPT  BYTE: 

PRCGRAM1C0LNTER»PR0GRAM$CQUNTER  ♦ COUNT; 
END  INCSRTR; 

GETJCFICOCE:  PPCCECURE  BYTE; 

CTR-CIEYIE; 

CALL  INCIPTRUI; 


RETURN  CTR; 
RJCCCE; 


END  CEUCP! 
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00212 

1 

00213 

1 

CCN01T10N41 ieR48CH:  PROCEOUREICCUNTI ; 

00214 

2 

/»  THIS  FRCCECURE  CONTROLS  BRANCHTNG  INSTRUCTIONS 

00215 

2 

CECLARE  OCUAT  BYTE: 

i 

00216 

2 

IF  NCT  8PANCH*FLAG  THEN 

00217 

2 

cc : 

C0218 

2 

BRAACH1FLAG«TRUES 

C0219 

3 

PRCGRAFiCOUNTER^CSAOORI COUNT): 

! 

C0220 

3 

ENC: 

00221 

2 

ELSE  CALL  INC IPTR (SHL ( CCUNT , 1 )*2) : 

00222 

2 

ENO  CCNOITICNALIERANCH; 

C0223 

1 

0C224 

1 

00225 

1 

INCREHENTICRJERFNCH:  PROCEDURE ( HARK ) I 

00226 

2 

CECLARF  PARK  BYTE; 

00227 

2 

IF  HARK  THEN  CALL  INCSPTRI2): 

00228 

2 

ELJE  PROGRAP1COUNTER=C*ADOR; 

C0229 

2 

ENC  increpentscfieranch: 

C0230 

1 

00  231 

1 

/«  •««*»****  *COHPAR ISONS  •**•♦**« 

00232 

1 

00233 

1 

00234 

1 

00235 

1 

00236 

1 

CHARACCHPARE:  FRCCECURE  BYTE; 

00237 

2 

base=c»accr: 

C0238 

2 

HCLO^CAACCRdl; 

C023S 

2 

00  A*CTR=1  TC  CtACDRI2)  - 1; 

C0240 

2 

IF  eiBYTE(ASCTR)  > HSBYTEIAACTR)  THEN  RETURN 

o; 

C0241 

3 

IF  BlBYTEIAtCTR)  < HSBYTEIAJCTR)  THEN  RETURN 

1; 

00242 

3 

ENC; 

00243 

2 

RETURN  2; 

00244 

2 

ENC  CHARACCPFARE ; 

C0245 

1 

00246 

1 

00247 

1 

STPINGSCCHPAPE;  FRCCECURE! PlVOTl ; 

00248 

2 

CECLARE  FIVCT  BYTE; 

C0249 

2 

IF  CHARICCf'F^iFEOPIVOT  THEN  BRANCHSFL AG=NCT  BRANCHIFLAG; 

C0250 

2 

CALL  CCNCI  T lONALAERANCHO)  ; 

00251 

2 

END  STRINGJCCPPARE; 

00252 

1 

00253 

1 

00254 

1 

NUHERIC:  PFCC ECLR E ICHAR ) BYTE; 

00255 

2 

CECLARE  CHAR  BYTE; 

00256 

2 

RETURN  (CHAR  >=*0*l  AND  (CHAR  <=*9*l; 

00257 

2 

ENC  NLHERIC; 

C0258 

1 

C0259 

1 

00260 

1 

LETTER  : PROCEDURE (CHAR  I BYTE; 

00261 

2 

CECLARE  CHAR  BYTE: 

00262 

2 

return  (CHAR  >=>A'I  AND  (CHAR  <='Z‘); 

00263 

2 

ENO  LETTER! 

00264 

1 

00265 

1 

00266 

1 

SIGN:  FROCECLRE(CHARI  BYTE; 

00267 

2 

DECLARE  CHAR  BYTE! 

00268 

2 

RETURN  (CHAR=*+‘l  OR  (CHAR=*-*1; 

C0269 

2 

ENO  SIGN; 

C0270 

1 

00271 

1 

00272 

1 

CCPPfNLHlUNSIC-NEC:  PRCCECURE; 

00273 

2 

BASE=C$ACOR ! 

00274 

2 

CC  A$CTR»0  TC  C1ACDR(2)-I! 

00275 

2 

IF  ncT  NUHERICIBABYTEIAACTRI)  THEN 

00276 

3 

DO; 

00277 

9 

ERANCH*FLAG=N0T  BRANCHSFIAG; 

C0278 

4 

RETURN; 

C0279 

4 

ENC; 

C0280 

3 

END; 

00261 

2 

CALL  C0NCITICN4L*BRANCH(2) ; 

00282 

2 

END  CCHPANUHILNSIGNED; 

00283 

1 

C0284 

1 

i 

00285 

1 

CCHPINUHlSIGN:  PRCCEDURE; 

j 

00286 

2 

eASE*C»ACC» ; 

00267 

2 

CC  A»CTR»0  TC  C*ADDRl2)-l; 

i 

00288 

2 

IF  N0T(NUHERlCICTR;=aJ8YTE(A$CTRll 

i 

C0289 

3 

CR  SIGMCTR))  THEN 

i 

00290 

3 

DO; 

i 

00291 

3 

ERANCH»FLAG=NOT  BRANCHAFLAG; 

1 

0C292 

4 

return; 

CC293 

4 

ENC; 

00294 

3 

ENC; 

CC295 

2 

CALL  CCNCITICNALABRANCHI2) ! 

00296 

2 

ENC  CCHPANUPiSICN; 

00297 

1 

00298 

1 

C0299 

1 

CCHPAALPHA:  FRCCECURE; 

00300 

2 

BASE*CSACCR: 

00301 

2 

DC  AACTR=0  TC  CAA00RI2I-1; 

00302 

2 

IF  not  LETTERIBABYTEIAACTRI I THEN 

00303 

00304 

3 

3 

wU  V 

eranchaflag’Not  sranchaflag: 

i 

00305 

4 

return; 

00306 

4 

ENC; 

1 

CO  30  7 

3 

ENC; 

1 

00308 

2 

CALL  CCNCITICNALAERAN'CH(2I; 

1 

00309 

2 

ENC  CCHFAALRHA; 

1 

002  10 

1 

‘ 

00311 

1 
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NUMERIC  OPERATIONS 


00312 

00313 
C021A 

00315 

00316 

00317 
C0318 
00319 
C032O 

00321 

00322 

00323 
0032A 
00325 
C0326 
0C327 
C0328 
C0329 
C0330 
00331 
C0332 
00333 
0033A 

00335 

00336 

00337 
CO  33  8 
C0339 
CC340 
C03A1 
C03A2 
C03'’i3 
C03AA 
003A5 
003A6 
C03A7 
C03A8 
C03A9 
10350 
00351 
C0352 

00353 

00354 
CC355 

00356 

00357 
C0358 
C035S 
C0360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 
C0368 
C0369 
10370 

00371 

00372 
C0373 
C0374 

00375 

00376 

00377 
C0378 
C0379 
10380 
0C381 

00382 

00383 

00384 
0C385 

00386 

00387 

00388 

10389 

10390 

00391 

00392 

00393 
0C394 


4 

1 

1 

1 

CECLARE 

(RC.Rl  ,R2I 

(101 

B"TE,  /• 

1 

(SIGNO.SIGM; 

ICECSPTO.OEC! 

•SIGN2) 

BYTE, 

1 

|PT1,CECSFT2) 

BYTE, 

I 

CVERFLCW 

BYTE, 

1 

PSFTR 

BYTE, 

1 

SWITCE 

BYTE, 

1 

SIGNIFSNO 

BYTE, 

1 

ZEPCSRESULT 

BYTE, 

1 

ZONE 

LIT 

'lOH', 

1 

POSITIVE 

LIT 

1 

1 

NEGITIVE 

LIT 

'O'  S 

1 

I 

CEECKIFCRSSIGN : PROCEDURE 

(CHAR)  BYTE: 

CECLARE  CEAR  BYTE: 

IE  NLHERIC (CEAR)  TEEN  RETURN  POSITIVE: 

IF  NUMERIC (CEAP  - ZONE)  THEN  RETURN  NEGITIVE; 

CALL  PRINTSEPRORI 'SI' ) ; 

RETURN  FCSniVE; 

ENC  CEECKIFCRJSIGN; 

STCPEIIMMECIATE:  FRCCEDURE: 

CC  CTR=0  TC  9: 

R0(CTR)=P2(CTR) : 

END; 

CEC1PT0=CEC 1FT2? 

E IGNO=SIGM  : 

ENC  ETCRESIEEEC SATE: 

CNESLEFT:  PPCCECLRE; 

CECLARE  FLAG  BYTE  ; 

IF  ((FLAG:»SEPta»BYTE,4))»0)  CR  (FLAG=9)  TEEN 
CC  ; 

oc  CTP»c  TO  e; 

E$eYTElCTR)»SHL(esBYTE(CTRl,4)  OR  SHR (B »BYT E ( CTR  ♦ 1),4) 

ENC: 

BieYTE(S)=SHL(01BYTE(9),4)  OR  FLAG: 

END; 

ELSE  CVERFLCE’TRUE; 

END  CNESLEFT: 

CNElRIGHT:  FROCECURE: 

CTR=10: 

CC  INCEJCl  TC  9; 

CTR*CTR-l: 

BSBYTEICTRI-SHRIBSBYTEICTR)  ,4)  OR  SHL (BtBYTE ( CTR- 1 ) , 4 1 ; 

ENC: 

ei8YTE=SER (ElEYTE  ,41  : 

ENC  CNESRIGET: 

SHIFTIRIGHT:  PFCCEOURE(CCUNT) ; 

CECLARE  COUNT  BYTE: 

CC  CTR-1  TC  CCLNT: 

CALL  CNESRIGET; 

ENO; 

ENC  SEIFTSRIGETS 

SEIFTUEFT!  FPCCECURE  (CCUNTIS 
CECLARE  COUNT  BYTE: 

CVERFLCe«FALSE; 

CC  CTP»l  TC  COUNT: 

CALL  CNESLEFT; 

IF  CVERFLCW  THEN  RETURNS 

ENC; 

ENC  SEIFTSLEFT: 


ALLIGN:  PROCEOURE: 

BASE'.RC; 

IF  OECSPtO  > CECAPTl  THEN  CALL  SHI FTS R IGHT ( CECSPTO-CEC SPTl ) 
ELSE  CALL  SEIFTSLEFT(OECSPTl-OECSPTO) : 

ENC  ALLIGN; 


wmmn^ 


r35^- 


00t03 

oc«o<> 

ootos 

00606 

C0607 

00608 

nni 

00611 

00612 

00613 

00616 

00615 

00616 
£0617 
00616 
00619 
(0620 
006  21 
00622 
00623 
C0626 
C0625 
00626 
£0627 
00628 
00629 
(0630 

00631 

00632 
C0633 
00636 
(0635 
00636 
£0637 
C0638 
00639 
£0660 
£0661 
C0662 
00663 
£0666 

00665 
(0666 
£0667 
£0666 
00669 
£0650 

00651 

00652 

00653 
£0656 

00655 

00656 
C0657 
£0658 
(0659 
(0660 
00661 
00662 
00663 

00666 
00665 
£0666 
£0667 
00668 
00669 
£0670 

00671 

00672 
0067  3 

00676 
00675 
(0676 

00677 

00678 

00679 
(0680 
00681 
00682 
00683 
00686 
£0685 
00686 
(£687 
£0688 
£0689 
(£690 

00691 

00692 

00693 
£0696 

iC695 
£696 
0697 
0698 
0699 
0700 

im 

(0703 
C0106 
£0705 
C07C6 
(0  70  7 


L0A066UN$LIT:  P8CCECU8E; 

CECLARElLniSUE.FLAG)  BYTE: 

C7-ARASIG6:  FBCCEOCRE: 

L11IS12E*t.ntSl2E  ' 1( 
MOIC.FCLO  ♦ l; 

ENO  CHARISICM 

LmSIZE<£<EYTE(2t : 
HOLO-C$ACCR ; 

If  H1BVT£«»-*  THEN 

cc; 

CALL  CfARtSIGN: 

:aLL  SETALOACtNEGITlVE): 


END: 

ELSE  DO; 

IF  HBYTE-'*'  THEN  CALL  CHARtSIGN; 
CALL  SETSL0A0(PCS1T1VE1 ; 

ENCi 

FLAG-0; 

CIB-LITISIIE: 

DC  INOEX-l  1C  LITISUE; 

CTB-CTF-l: 

IF  HBVTEICTB  ) = <.  • THEN  FLAG-L  I T*SI  2E 
ELSE  CALL  LOAC*AlCHAR(htBYTE(CTR) ) i 

CEcipT0(ClBYTE(6l ).  FLAG; 

CALL  1NCJFTP(5J! 

ENC  LCAOINLPILIT; 

STCREJCNE:  FBCCECURE: 

If (SRiTCFs-NCT  Switch)  then 

9J3VTE-SHB(HJeYTEt6)  OR  *0': 

ELSE  CC; 

HOlC-KLC-l; 

e*BYTE«(H*BYTE  AND  OFH)  CR  *0*; 

ENC: 

EA$E-8ASE-li 
ENO  ‘TCREICNE: 

STCREJASTCHAP ! FBCCEOURE(COUNT) ; 

DECLARE  CCLM  BYTE; 

SmCH-rALSE  : 

HCL0-.R2  ♦ 9; 

CC  CTR-1  TC  CCUNT; 

CALI  STCREIONE; 

ENC; 

ENO  STCR£»A$*CI-AR; 


SETSZCNE:  PBCCECLPE  (ACCB); 
CECLARE  ACfB  ACCRESS: 

IF  NCT  S1GN2  THEN 

00; 

BASE-accr; 

BlBYTc»B$BYTE  CR  ZONE  I 

ENC: 

CALL  IN'C1PTB<6); 

ENC  5ET1ZCNE; 


(CTRU 


£ET$SIGN$SEF:  PBCCEDUBE  (AOOR); 
CECLARE  ACER  ACCRESS; 
BASE-AOCP; 

IF  SIGNS  THEN  B*BYTE«***I 
ELSE  3ABYTE-*-*: 

CALL  INC1PTB(6); 

ENC  SEUSIGMSEF; 


STCBEANUMER IC:  FRCCECURE; 

CALL  CHECKJCECIHAL; 

BASE-CTACCR  ♦ CIBYTEIZ)  -1; 
CALL  STCFEl«S»CHARtC*0YTE(2))i 
END  STCREiNLHEP.  IC; 


INPUT-OUTPUT  ACTIONS 


DECLARE 

FLAGKFFSET 

EXTENUGFFSET 

RECSNC 

FIFSCFFSET 

BUFFtLENGTH 

VARIENC 

TERMINATOR 

ENCICFiBECCRC 

iNVALtC 

RANCCPiFlLE 

CLRRtNTIFLAC 

FCBABYTE 

FCeiAf  CR 

6LFF»F  IB 

PLFFltND 

PUFFSTAST 

PUFFIEYTE 

CCNSeUFF 

CCN»eYTE 

(CM  INPUT 


■ j 


LIT  •33', 

LIT  »12'. 

LIT  

LIT 

LIT  MAH' 

BYTE, 

BYTE, 

BYTE. 

BYTE  1 

BASED  CUPBENUFCB 
BASED  CURRENMFCB 
ADCBESSf 
AOCBESS. 

ACCRESS. 

BASED  BUFFAPTR  BYTE, 

AUCPCSS  INITIAL  IBOH), 
BASED  CCNABUFF  BYTE. 

AOCBESS  INITIAL  I62HI; 


BYTE, 

ACCRESS. 
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ACCEFT:  PBCCtCLBES 
CALL  crif; 

CALL  PRUTICHAROFHI  : 

Call  Cplf: 

CALL  FJll<CCLJlNPOTt«CONtBVTE:»Ci8rrE(2)),‘  •>; 
CALL  REAC(CCAABUFPI ; 

^ALL  HCVE(CCA»INPLT,RES(CtAOCR) ,C0N$BVTE> ; 


ENC 


;aLL  INCIPTROli 
ACCEPT; 


display:  prcceclpe; 
basE'Caaccr : 
call  crif; 

DC  CTR.  0 TC  CfBYTE(2l  - 1: 

CALL  FRINTSCHArTbaBYTEICTR) I; 

LNO: 

CALL  1NCIPTRI3II 
END  DISPLAY; 


-U 

COT35 

C0T36 

CQT37 

C073B 

C0739 

C07A0 

007A3 

Q07AA 

007AS 

C07A6 

W 

C07A9 

00750 

§8^11 

00753 

0075A 

C0755 

00756 

C0757 

C075S 

C0759 

C0750 

0C761 

00762 

00763 
0076A 

00765 

00766 

00767 
C0768 
C0769 
C0770 

00771 

00772 

00773 
0077A 

888^1 

00777 

C0778 

CC779 

00780 

00781 

00782 

00765 

00786 

00787 
C0788 
C0789 
CC79C 
0C791 
0C792 

80793 
C79A 

88??2 

00797 

00798 

CC799 

CC80C 

00801 

C0802 

C0803 

COCOA 

00805 

00(06 

00(07 

C080B 

C0809 

C0810 

C0811 

00812 

00813 

0081a 

00615 

C0816 


SETJFILESTYFE : FRCCEDURE ( TYPE  I ; 

DECLARE  TYPE  BYTE; 

8A !E>CSACDP  ; 

eteYTEIFLAGICFFSETI-TYPE: 

END  :et»fileityfe; 

GETIFILEITYFE:  FRCCEDURE  BYTE; 

EASE'CSACCR ; 

RETURN  eiBYTElFLAGlCFFSET); 

END  GET$F1LE«TYFE; 

'ETHIC:  PRCCSCLRE; 

EN06CFJ peccrc,invalid*false; 

IF  CIACCF-CLRBENT$FCE  TFEN  RETURN; 

/*  store  current  PCINTERS  and  SET  INTERNAL  WRITE  HARK  */ 
eASE-CL'RFENT«FCa; 

FCB$A0CB(PTR1CFFSETI«BUFF$PTR; 

FCe»BYTc(FLAGiCFFSc; |=cURRENT$FLAG; 

/•  LOAD  NEW  VALUES  »/ 

eLFFlENC=(flLFFjSTART:*(CURRENT*FCB:«C$ADORJ+START»CFFSET) 
♦ ELFFUENGTh; 

CLRBENT1FLAG«FCB1EYTE(FLAGFCFFSET); 
BLFF»OTR*FCejADCR;PTR$0FFSET) ; 

ENC  SETSISC; 

CPENIFILE:  PFOC ECuRE ( TYPE  I ; 

DECLARE  TYPE  BYTE: 

CALL  SETIFUEJTYPE(TYPE): 

CTR«OPEN(CLOBENT1FC6:=C$AODRI ; 

DC  CASE  TYFE-l; 

/•  INFL7  •/ 

CO; 

IF  CTR«255  THEM  CALL  PR INTF ERROR ( *NF «) ; 
FCBIADORIPTRSOFF;  :TI*CURRENT»FCB  + 100H; 

ENC: 

/*  CLTFLT  •/ 

co; 

CALL  DELETE: 

CALL  PAKEICtADOR): 

fCfl*A00RlPTR10FFSET)=CURRENT$FC6+START»0FFSET-l 


ENC: 

/•  i- 
oc; 


ENC; 

!lrIent$fc8*c; 

CALL  SETSIJC; 
CALL  INC«PTR(2li 
ENC  CPENIFILE; 


C »/ 

IF  CTR*255  THEN  CALL  FATAL* ERROR ( 'NF M ; 
FCe(AOOR(PTRtCFFSET)<CURRENT*FC8  * lOOH; 


/*  FORCE  A PARAMETER  LOAC  */ 


WRITEIHARK:  FRCCECURE  BYTE; 

RETURN  RCL(CURRENT*FLAG,1) ; 
END  writespafk; 


SETtWRITEtPARK:  'RCCEOURE; 

clrrent«flag«cuprent»flag  or  boh; 


ENC  SETSWRITEIHARK; 

WRITEIFECORC:  FRCCEDURE; 

If  not  'FR(CL'RRENTtFLAG.l)  THEN  CALL  FATAL  (ERROR!  ' W I •) ; 
call  seticra; 

CLRRENT»FLAf-CURRENT*FLAG  AND  JFH; 

If  (ctr :>o  1 'kimrite I *o  then  return: 

INVALiC>TRLE ; 

ENC  WP  ITEIRECCRC ; , 


REAOAFfCORC:  FRCCECURE; 

;■  ■ 

IF  (CTR:.0l'6*R(A0l«0  THEN  RETURN; 


CALL  SETICHA; 

If  hrIte»hask  then  call  w» i teareccro; 


END 


IF  CTR*1  THEN  EN0*0F»RECCRD«TRUE : 
ELSE  INVAL  IC'TRUE: 

REAOIRECCRC; 


ill 

ml? 

00(32 
00633 
00(34 
CO(3S 
00(36 
J0(37 
C0838 
(083S 
C0(40 
00841 
C0842 
00843 
CO  844 
C0C45 
C0(46 
00847 
C0848 
C0849 
CC850 
C0851 
C0852 
008  53 
C0654 
C0855 

00856 

00857 
C0858 
C0859 
00860 
00861 
CC862 
Q0E63 
C0864 
00865 
C0866 

00867 

00868 
(0869 
C087C 
00(71 
C0E72 
CC873 
CC874 

00875 

00876 

00877 

00878 
(0879 
CC88C 

80881 
0(82 


RE80S8YTE:  F8CCECURE  EYTES 

IF  (eUFFIPTR:.eUFF»PTR  ♦ II  >•  BUFFENC  THEN 

oc: 

CALL  REAOtRECCRO: 

IF  ENCICFIFECOBC  THEN  RETURN  TERMINATOR; 
BUFF«PTR«eUFFS START: 

ENC  * 

RETURN  ELFFI8YTE; 

END  REAOSBYIE; 

NRITEIEYTE:  FRCCEOURE  (CHAR); 

C8CLARE  CFAR  EYTE: 

IF  18UFFJPTR;«8UFF$PTR*1I  >•  BUFFSENO  THEN 
CO; 

CALI  LRITEiRECORO: 

buff*ptr«buff$start; 

EKO: 

CALL  SETIHRITESMARK; 

8LFF*BYTE»CFAR; 

ENC  KRITEiaYTE: 

WRlTEJENOtMAFK:  FFQCEOURE; 

CALL  NRITEIBYTEICR) ; 

CALL  hOIlEJEVTEILFI : 

END  kR  itesencifafk: 

REAOIENOSMARK:  FRCCEOURE: 

IF  REA018YT8OCR  THEN  CALL  PR  INTSERSOB  ( • EM  • I : 
IF  REAOI8YTEOLF  THEN  CALL  PR  INT» ERROR  ( • EM • I ; 
EDO  REACSENCJMARK; 


REAC»VARIA8LE:PFCCEDURE; 

CALL  SETIIIC; 
eAS£»C$ACCB(l); 

CC  A8CTR-0  TC  CiA00R(2)-l: 

IF  (CTR:«(B$8YTE(A»CTR) :«R£AC$aYTEI ) 
00; 

C7R*REAC»BYTE: 

retlrn: 

ENC; 

IF  ctb-terminator  then 

OC: 

, enc$cf*reccrd»true : 
return; 

ENC; 

ENC; 

CALL  reaceefcjmark; 

END  REAOSVARIABLE: 


VARSENC  TFEN 


hRITEtVARIAELE:  PROCEDURE: 

CECL4RE  CCLN:  ACORESS: 

call  setueC; 

PASE-CJACCRd); 

CCLNT*CSACCR(21  : 

OC  kHILE  (6ieYTE(C0UNT:«C0UNT-ll<>*  • I AND  (CCUNTOOl 
ENO; 

CC  AJCTR.O  TC  CCUNT; 

CALL  kRlTE*BYTE(BSBYTE(AtCTRI I ; 

ENC; 

CALL  kRITEIENCIMARK; 

ENO  kRITEtVARIAELE: 


in 


REACSTCtMEMCRY:  FROCEOURE: 

CALL  SriJITC; 
eA£E»CiA(CR  <11: 

OC  AlCTR.O  TC  d$AnOR;21-l; 

IF  (BSRYTEIAtCTRI :«ReAOSBYTE)*TERMINATCR  THEN 
DC; 

EN0t0F8RECCRn>TRUE: 

return; 

ENC; 

ENC: 

CALL  REACtEFOMARK; 

ENO  REAOSTOIMEPCRV; 


NRITEIFROMAmEMORY:  PRCCEOURE: 

CALL  SETIUC; 
eASE-C»4CCBUI; 

OC  AICTR.O  TC  C*A00R(21-l: 

call  I«RITE»BYTE(8»BYTE(A*CTRIM 

ENC; 

CALL  WR  ITE  IENOMARK  : 

ENO  kR  ITE»FRCM»PEMCRY ; 
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iJi " ‘ t ' 


kNDOM  1-0  PROCEDURES 


COSIO 

C0920 

C0S21 

30S22 

CCS23 

00S24 

C0S25 

00526 

00527 
0CS28 
C0929 
C0930 

00931 

00932 

00933 
00939 
CC935 
00936 
0CS37 
C0938 
00939 
C0990 
00991 
CC992 
0C993 
0C999 
C0995 
0C996 

00997 

00998 
CC99S 
C0950 
00951 
C0952 
00953 
00959 
00955 
0C956 
00957 
0C958 
CC959 
C0960 

00961 

00962 
CC963 
00969 

00965 

00966 
OC967 
CC968 
00969 
tC97C 

00971 

00972 
CC973 
0C979 

00975 

00976 
0C977 

00978 

00979 
(C980 
CC981 
CC982 
CC903 
00969 
C0985 
00986 


009 


SETtRPNOCNIPCIMTERi  PROCEDURE: 

^hlS  PRCCEOLRE  READS  THE  RANOOH  KEY  AND  CCPPUTES 
RMCH  REODRC  NEEDS  TC  BE  AVAILABOE  IN  THE  eUEECR 
TEAT  RECCRO  IS  HADE  AVAILABLE  AND  THE  POINTERS 
SET  FCR  INPLT  OR  OUTPUT 

• / 

DECLARE  leYTEtCCUNT.RECOROI  ADDRESS, 

EXTENT  BYTE: 

CALL  SETtlSCj 

eYTEtCCLNT«l£iAD0R(2l*2)*C0NVERTAT0AHEX(CAACCR(31.CSBYTE(8l I : 
PECCRC«SPRIEYTE$CCUNT,7); 

EXT£NT«SER<PEC0RD,7> ; 

IF  EXTENTOfCBSeYTElEXTENTACFFSET)  THEN 
DC: 

IF  NRITEIPARK  THEN  CALL  MRI TEARECORO: 

CALL  CLCSEICSAOOR l: 

FCeiBYTElEXTENTlOFFSETI-EXTENT; 

IF  CPEMCSAOORIOO  THEN 

00: 

IF  SHRICURRENTSFLAG. 1)  then  CALL  PAKEI CAAOOF I : 

ELSE  INVALID'TRUE: 

END: 

END; 

eUFF$PTR,{eVTE»CCLNT  AND  TFHI  ♦ SUFFiSTART  -1: 

IF  FCe»BTTElBEC*NQIO(CTP.:-L0W(PEC0RDIAN0  7FH1  THEN 
CC  : 

FCBJBY''EI22I-CTR: 

CALL  REAOSRECORO; 

ENC; 

ENC  SETARANCCHIFCINTER: 

GETSRECANUHBEF:  PROCEDURE: 

CECLARE  IRECNUH,  Kl  ADDRESS, 

<I,CMI  BYTE, 

JI9I  ACCRESS  INITIAL  (10000,1000,100,10), 

8UFF(5l  byte; 

REC$NUH»SHl(FC8lBYTE(EXTENT*0FFSET),7l+FCB$8YTE(RECSNC) : 

CC  1*0  TC  3: 

CNT.O: 

DC  XHUE  REC»NUH>»(X:  »J(  in : 

REC*NUM«REC$NUH  - K; 

CNT»CNT  ♦ l; 

END: 

BLFF( I),CNT  ♦ 'O'  : 

END; 

BLFF(91«REC1FUM+*0*; 

IF  {I;>C1BYTE(8)1<»5  THEN 

call  MOVE! .ELFF+9-I ,C1A0DR(3I , II; 

ELSE  CO; 

CALL  FUHC»ADCR,l-5,*  *1; 

CALL  PCVE(. BUFF, C$A0DR(3|91-6,  51; 

ENC: 

END  CETiREClNURBERF 

NRITElZEROJRECCRCs  PRCCEDURE; 

CC  AACTR.l  TC  ClACOR(2i: 

CALL  hRlTEABYTE(OI ; 

ENO; 

ENC  NRITESZcFCIRECORO; 

HRITEIRANCCK:  PRCCEDURE; 

CALL  setiraacchapc  inter: 
call  nr  nEJFRCMlMEHORY; 

CALL  INCIPTRI9); 

ENC  NRlTEtRANCCP; 

BACKtCNESPECCRC:  PRCCEDURE; 

. call  SFTlIIC: 

IF  (BLFf»STR:»?LFF*PTP.-IC*ADDR(2l*2l)>«BUFF*STAPT  THEN  RETURN; 
BLFFIPTS.BLFFSENO-IBUFFASTART  - BUFFiPTR): 

IF  ( FCB»BYTE(REC1N0):»FC3»BYTECREC*N0I-1I»255  Th=N 

FCd»6YTE(£XTENT»CFFScTl«FCB*BYTE( extent 90FFSETI-1 ; 

IF  CPEMCAAOORIO  0 THEN 

cc; 

CALL  PFINTlERRCRl'OP* I ; 

INVALIO«Tfiu£; 

IcSIbYTEIREC AN0I*127; 

ENC; 

call  peacsreccro: 

ENC  BACKACNEARECCRO; 


RCVES 


*/ 


m 


INCIFCLO!  PRCCECLRE; 
FCL3*FCLC  4 l; 
C1R*CPR  4 l; 

ENt  INCSHCLC; 


lOAOAINC:  PRCCECLRE; 
FlBYTP.eiBYTE; 


BASP-BA<t4l ; 
ENC  [fibAl^cr“'=‘ 
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C1043 

C1C44 

ilC45 

i;i046 

J1C47 

C1C<>8 

C1C49 

CICSO 

31051 

31C52 

01C53 

01054 

01C55 

Close 

CIC59 

CICAO 

oicei 

41062 
■‘063 
-C64 

01065 
C1C66 
C1067 

01066 
C69 
070 


. 2 
UC73 

31074 

31075 
:i076 
31C77 
- C78 

079 
,1080 
31081 
11082 
31C83 
1064 
085 
,086 
11087 
■ 068 
,089 
C1C90 
31091 
31C92 
093 
,094 
31  095 
31096 
11097 
31098 
;i099 
100 


lOl 

103 

104 

105 

106 
311C7 
■■  108 

109 

110 

>11 

ill 

114 


1 

llv 

C1119 
■ 120 
121 


111 

125 


Ct-CCKIEOn:  fFCClCUREICHARi  t 
CiCLARF  0-49  BYTE: 

IF  ICHtRXQM  OR  (Ct-RR-'/'l  7HEN  CALL  INCJt-CLO; 

ELSE  IF  CH4R.«B'  then 

OCi 

H»eY7E«*  •; 

CALL  IFCAHCLO: 


ENOi 

ELSE  IF  CFAR««A>  THEN 

OCl  ..  ... 


EKO 


IF  NCT  LETTERIBIBVTEl  THEN  CALL  PRINTSERRORI ' IC* 1 S 
CALL  LCACtINCt 


cnui 

lii* 


IF  CHAR»*9'  THEN 


IF  ACT  AUHERIC  IBABYTEl  THEN  CALL  PR INTAERROR !• iC* 1 1 
CALL  LCACSINCi 

Itil  CALL  LCACtINC; 

ENC  CFECKSECIT: 


MACHINE  ACTIONS 


STCP:  proceclre: 

CALL  PFIM(.*E0F  $•!! 
CC  TC  BCCT; 

ENC  STCP; 


TFE  PROCEDURE  BELOW  CCNTROLS  THE  EXECUTION  OF  T 
IT  CECOCES  EACH  DP-CCOE  AND  PERFORMS  THE  ACTION 


EXECLTEt  PRCCECLRE; 

CC  FOREVER; 

DO  CASE  CETACPACOOE: 


/•  ACC  */ 
/»  SUB  */ 


; /•  CASE  ZERO  NOT  USED  */ 

CALL  AOO; 

CC; 


/»  PLL  ♦/ 


ENC; 

CC; 


CALL  COMPLIMENTIOI; 

IF  SICNO  THEN  SI GNO=NECITI VE ; 
ELSE  SIONO>PCSITIVE; 

CALL  Ai30; 


DECLARE  I BYTE; 

CALL  SETAMULTAOI V; 
0ECPT1,0ECPT2=CECPT1  + CECPTC; 
CALL  ALLIGN; 

CALL  MULTIPLY<SHR<R1(I;*9I,4I); 
00  INDEX>1  TC  9; 


ENC; 


ENC; 


CALL  MULTIPLYIRKI  :-I-l)  AND  OFHI; 
CALL 


MULTIPLY  (SHP.IRK  11,411; 


/*  CIV  »/ 
/•  NEG  */ 


CALL  CIVIDE; 

branchsflaG'False; 


/«  STP  •/ 
/•  ST  I •/ 


CALL  STCP; 

CALL  stcresimmeoiate; 


/•  PNC  */ 


CC; 


/•  RET  •/ 


ENC; 

cc; 


CALL  STOREtIMMEOIATE; 
CALL  FILL! .R2. 10,01 ; 
R219)»l: 

CALL  ao6; 


IF  CtAOOROO  THEN 

00; 

AtCTR>CtA00R; 

C*APOR»0; 

PRCGRAMICOUNTER'AtCTR 1 


CALL  INC*PTR12I; 


ENC; 


cir  ■ 

Si 

oi_._ 

0U32 
01133 
01)3« 
01 
Cl 
01 
Cl 
Cl 
Cl 


n 


01  M3 


01 

Si 

01 


18 

AO 

IMl 


^>z 


4A 

45 

46 

47 


01148 

a 149 
1!C 

8iili 


/*  Cl$  •/ 


/•  S£R  •/ 


/•  6PN  */ 


/*  CfN  */ 


/*  CPI  »/ 


/•  SIG  •/ 


/•  S11  •/ 


cc: 


^ail. SEl»i»p; 


Ip  HRITEIHARK  THEN  CALL  HR  IT E tRECORO t 
CALL  CLOSE(CSAOOR) i 
CALL  INC$PTR(2>: 


IF  OVERFLOW  THEN  PROGRAM tCCUNTER  • CSAOOR; 
ELSE  call  INCtPTRIEl: 


8iii^ 

4 

4 

/• 

CF2 

*/ 

8iil^ 

4 

4 

CALL 

Cl  157 

4 

01158 

4 

/* 

RGT 

*/ 

CUSS 

4 

(1160 

4 

CC; 

01 161 

4 

01162 

5 

01163 

5 

Cl  164 

5 

EKC: 

01165 

4 

01166 

4 

RLT 

*/ 

01167 

4 

C1168 

4 

CC; 

Cl  169 

4 

C1170 

5 

01 171 

5 

01172 

5 

EKC; 

01 173 

4 

01  174 

4 

/• 

REC 

»/ 

01175 

4 

01176 

4 

CC: 

01177 

4 

C117B 

5 

C1179 

5 

(1180 

5 

EKC: 

01 181 

4 

C1182 

4 

/» 

INV 

Cl  163 

4 

01  184 

4 

CALL 

Cl  185 

4 

01 186 

4 

/» 

ECR 

•/ 

01187 

4 

CUBS 

4 

CALL 

(1 189 

4 

Cl  190 

4 

/• 

ACC 

•/ 

01191 

4 

01192 

4 

call 

01193 

4 

01194 

4 

/• 

CIS 

*/ 

C1195 

4 

01196 

4 

call 

8til2 

4 

4 

/* 

STC 

•/ 

(1199 

4 

(1200 

4 

CC; 

01201 

4 

01202 

5 

01203 

5 

EKC; 

01204 

4 

01205 

4 

/• 

ICI 

• / 

01206 

4 

01207 

4 

CC: 

C1208 

4 

(1209 

5 

(1210 

5 

EKC: 

01211 

4 

01212 

4 

/* 

CEC 

»/ 

01213 

4 

01214 

4 

CC; 

Oias 

4 

EROS 

OC: 

ERCi 

fpcgrariccunter-caaocr: 
CALL  OPENAFlLEll) i 
CALL  OPENSFUEIEI: 


IF  NOT  SIGN2  THEN 

BRAtlCHf FLAG»NOT  BRANCHFLAGl 
CALL  CONO(TICNAL$bRANCH(0) ; 


IF  SIGN2  THEN 

ERANCH*FLAG»NCT  BRANCHPLAGi 
CALL  CONOITICNALSBRANCHIO) J 


IF  NOT  ZEROJRESULT  THEN 

BRANCH*FLAG»NCT  BRANCHIFLAG: 
CALL  CONOITICNALSBRANCHIOJ ; 


CALL  DISPLAY; 
CALL  STOP; 


^tAODRIJMCCNVERTATOSHEX  (C* ACCR.CJBYTE  (21 1 ; 


INC: 

CC; 

ENC: 

cc; 

EKC; 


GALL  INCSPTRO); 


IF  ClAOOROO  THEN  C*AOOR*C$ACC«-l; 

IF  CIADOR-0  THEN  PROGRA M*CClNTER«C *ADOP ( 1 1 ; 
ELSE  call  INCtPTR<4)  ; 


CALL  STOREtNUPERIC; 
CALL  iNCtPTR(4l; 


CALL  STCRESNUNERICl 

CALL  SE T *1 ONE (C  JA00R4C TBYT E ( 2 )- 1 1 1 
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013^1 

01342 

4 

4 

/• 

FER 

•/ 

C1343 

4 

Cl  344 

4 

oc: 

0134S 

4 

BASE>C$AOOR( ll6l: 

01346 

5 

BtAOOR>CAADOR(2i ; 

01|47 

5 

prograhacounterocaaoor : 

01348 

5 

EKCt 

£1344 

4 

C13S0 

fill 

4 

/« 

CKC 

*/ 

4 

4 

4 

CALL 

CCFPtNUMAUNSIGNEO: 

4 

/• 

£6! 

• / 

01355 

4 

01356 

4 

CALL 

cchpskumssign: 

01357 

4 

0135B 

4 

f 

CAL 

• / 

. £1359 

^ Cl  360 

4 

4 

CALL 

CCMPtALPHA: 

C1361 

4 

01362 

4 

/♦ 

Rk  < 

*/ 

01363 

4 

C1364 

4 

CCl 

01365 

4 

CALL 

BACKSCNESRECCRC: 

01366 

5 

CALL  HRITESFRCMtMEMORy; 

01367 

5 

CALL  1NC$PTR(6I; 

£1368 

5 

END; 

01369 

4 

C1370 

4 

/* 

0L£ 

• / 

01371 

4 

01372 

4 

cc; 

01373 

4 

CALL 

BACKSCNESRECORC: 

C1374 

5 

CALL  WR1TES2ERCSFEC0RD; 

01375 

5 

CALL  INCtPTR(&); 

£1376 

5 

ERO; 

' C1377 

4 

C1378 

4 

/• 

RCF 

«/ 

£1379 

4 

£1380 

4 

cc: 

01381 

4 

CALL  READATOAMEMORY; 

C1382 

5 

CALL  INCAPTR(6I: 

01383 

5 

ENC; 

01384 

4 

01385 

4 

/• 

klF 

*/ 

01386 

4 

01387 

4 

oc: 

■ C1338 

4 

CALL  kRITeAFRCMAHEr'ORY; 

£1389 

5 

call  incaftr(6): 

£1390 

5 

ERC; 

£1391 

4 

01392 

4 

/* 

RVL 

»/ 

01393 

4 

£1394 

4 

CALL 

REAOAVARIABLE: 

01395 

4 

01396 

4 

/* 

kVL 

• / 

01397 

4 

01398 

4 

CALL 

WRITEAVARIA8LE: 

£1399 

4 

£1400 

4 

/* 

SCR 

•/ 

£1401 

4 

01402 

4 

oc; 

01403 

4 

SUBSCRIPT (CABYTc( 2) l« 

Cl  404 

5 

CONVERTATOAHEX(CAAOOR,CieYTE(3H  : 

01405 

5 

CALL  INCAPTRU): 

£1406 

5 

ERC: 

4 

4 

/* 

SCT 

*/ 

£1409 

4 

01410 

4 

CALL 

string acchpare(I) : 

01411 

4 

01412 

4 

/* 

*LT 

*/ 

0W13 

4 

01414 

4 

CALL 

STRINGACCHPAREIOI : 

01415 

4 

01416 

4 

/• 

SEC 

• / 

01417 

4 

01418 

4 

CALL 

STRINGAC0MPARE(2) : 

£1419 

4 

£1420 

4 

/* 

FCV 

*/ 

01421 

4 

Still 

hit 

4 

4 

5 

CC: 

CALL  MOVE(RESICAAOCR( 1) ) ,RES (CAAOOR ) ,C 1ACDR( 2) ) : 
If  caaooroioo  then  call 

5 

FILL(RES(C$A00R(1))  « C lADORI 2 ), C lACOR (3 1 , • 

1 

EKC: 

CALL  INCAPTRIBI; 

£1428 

4 

01429 

4 

/• 

RR! 

•/ 

1 01430 

4 

£1431 

4 

OC: 

4 

CALL  REAOATOANENORY; 

01433 

call  getarecakumber; 

01434 

CALL  TnCAPTR<9): 

4 

EKC: 

01437 

4 

/• 

kRs' 

• / 

01438 

4 

£1439 

4 

CC: 

£1440 

4 

CALL 

hpiteafromanencry; 
call  getarecanunber; 

01441 

5 

01442 

_01443 

5 

5 

EKc: 

CALL  tNCAPTR«9); 

/♦  THXS  PBCGBAM  TABES  THE  CCDE  COTPUT  FRCH  THE  C06CL  CCHPILER 
ABO  BUILCS  THE  ENVIRONMENT  FOR  THE  COBOL  INTERPRETER  */ 


OOORS 

COOA6 

00CR7 

C0CR8 

C0CR9 

C0C50 

COC51 

OOC52 

COC53 

OOCSA 

30C55 

C0C56 

00C57 

COC58 

C0C5S 

C0C60 

OOC61 

OOC62 

C0C63 

COC64 

30C6S 

C0C66 

00C67 

COC6B 

C0C69 

C0C70 

OOC71 

OOC72 

OOC73 

COC7R 

0OC75 

C0C76 

OOC77 

CaC7B 

C0C79 

CCC80 

C0C81 

COC82 

CCC83 

CCCOR 

CCC85 

COC6A 

30C87 

CCC88 

C0C89 

ICC90 

0CC9I 

CCC92 

0C<93 


lOCHI 

CECLARE 

LIT 

BOOT 

BOCS 

true 

FALSE 

FOREVER 

fSIsbvte 

I 

ACER 

CHAR 

BUFFSENO 
INTLPPAFCB 
COCElNCTtSET 
REACERALCCATIC 
INTERFJAOOREJS 
INTERPJCONTENT 
I15YTE 
CCLEICTR 
CSETTE 
BASE 
BiACCR 
BAEYTE 


/*  LOAD  POINT  •/ 


LITERALLY 

LIT 

•■IT 

LIT 
LIT 
LIT 

ACCRgSS 


EASEC 
EYTE, 
ACCRESS 
EASED 
LIT 
I33J 
EYTE 

N LIT 


FCB 


•LITERALLY', 

•0*  , 

•5*  , 

• 1*. 

•O'  , 

•WHILE  TRUE' , 
INITIAL  (5CHI, 
BYTE, 


INITIAL  (lOOh), 

AOOR  BYTE, 

• lOOH' , 

BYTE  INITIALIO, 'CINTERP  COM' , 0 ,0, C, 0 1 , 
initial  (TRUE), 

•IC80H', 

ADDRESS  INITIAL(2000H), 

BASED  INTERPSAOORESS  ACCRESS, 

EASEC  INTERPSACDRESS  BYTE, 

ACCRESS, 

EASEC  COOEiCTR  BYTE, 

ACCRESS, 

EASED  BASE  ADDRESS, 

EASED  BASE  BYTE: 


MCM:  PROCECLRE  IF, A); 

CECLARE  F EYTE,  A ACCRESS; 
GC  TO  BCCS: 

END  MCNl; 


MCN2:  PROCECLRE  (F,A>  BYTE; 

DECLARE  F EYTE,  A ADDRESS; 
GC  TO  BCCS; 

END  MCN2; 


PFINTICHAR:  FRCCECURE (CHAR) ' 
CECLARE  CFAP  3YTE; 

CALL  MCNK2  ,CHAR)  ; 

ENC  printschar: 


CRLF:  PROCECLRE: 

CALL  PRIMJCFAR(13)  ; 
call  PRINTICFARIICI : 
END  CRLF; 


PRINT;  PROCECUREIAI; 
CECLARE  A ACCRESS.* 
CALL  CRLF: 

CALL  HCM(9,A); 

ENC  PRINT: 


CFEN:  PROCECLRE  (A)  BYTE) 
CECLARE  A ACCRESS: 
RETURN  PCN2(1S,AI ; 

ENC  OPEN: 


MOVE;  PROCECLRE (FRCP,  OEST,  COUNT); 

DECLARE  IFRCP,  OcST,  COUNT)  ADDRESS, 

(F  eased  FRCP,  0 BASED  OESTl  BYTE; 

CC  WHILE  (CCLNT:-CCUNT-U03FFFFH; 

C«F; 

FRCP«FFCM»l: 

DEST*CEST«l: 

END! 

END  PCVE: 

GETtCFAR;  PRCCECURE  BYTE; 

IF  (AOCR:>ACCR  * lO'BUFFtENC  THEN 

cc: 

IF  PCN2120,FCBIOO  THEN 
DO: 

CALL  PRINT!. 'END  OF  INPUT  t'l; 
GC  TC  BOOT: 

ENC: 

ACCR>ecF ; 

END) 

RETURN  CFAR; 

ENC  CnACHAR; 
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acc9« 

1 

CCC95 

1 

NEXTICHAR:  FRCCECURE; 

00C96 

2 

CHAR«G€1JCEAR; 

0CC97 

2 

ENO  NEXTiCHAR; 

CCC98 
tCC9S 
00 100 

1 

1 

1 

STORE:  PROC£CURE(CCUM)s 

00101 

2 

ceclare  ccckt  byte; 

C0102 

2 

IF  CODEIACTlSET  THEN 

00103 

2 

CO: 

00104 

2 

CALL  PFINT(.'COCE  ERROR*’); 

C0105 

3 

CALL  NEXTiCHAR; 

C0106 

3 

RETLFK; 

00107 

3 

ENO; 

CC  i»l  TC  CCLNT; 

C0108 

2 

C0109 

2 

CtBVTEaCHAR; 

COUO 

3 

CALL  NEXTiCHAR; 

00111 

3 

CCCE*CTR*CODEiCTR*i: 

00112 

3 

EN'C: 

00113 

2 

ENO  ETCRE: 

00114 

1 

00115 

1 

00116 

1 

BACKi'TUFF:  FBCCECURE; 

00117 

2 

CECLARE  (FCLC, STUFF)  ADDRESS; 

00118 

2 

BASEa.HCLC; 

CO  119 

2 

CC  1=0  TC  3: 

BieYTE(I)=GETlCHAR; 

C0120 

2 

00121 

3 

ENC; 

00122 

2 

CC  FOREVER; 

00123 

2 

aASE=FCLD; 

00(24 

3 

HOLC=BiACDR; 

00125 

3 

BiACCR-STUFF ; 

00126 

3 

IF  FCLC»0  THEN 

00127 

a 

DO: 

00128 

3 

CALL  NEXTiCHAR; 

C0129 

4 

RETURN: 

C0130 

4 

ENC ; 

00131 

3 

ENC: 

00132 

2 

ENC  BACKiSTUFF; 

00133 

1 

00134 

1 

£9135 

1 

STARTiCOOE;  FRCCEOURE; 

C0136 

2 

C0DE1N0T1SET«FALSE; 

00137 

2 

llBYTE=f ETICFAR; 

00138 

2 

IIBYTE;  l)«GETiCHAR: 

C0139 

2 

CCDE*CTR=INT£RPiCCNTENT; 

0Q14O 

2 

CALL  NEXTICFAR; 

00141 

2 

ENO  STARTiCCCE; 

00142 

1 

C0143 

1 

00(44 

1 

GCiCEPENCING  : PRCCECURE; 

00145 

2 

CALL  STCRE(I); 

00146 

2 

CALL  STCFE (SFL(CHAR.l)  ♦ 4); 

00147 

2 

ENC  GCiCEPENCING; 

(0148 

1 

(0149 

1 

(C150 

1 

INIT1ALI2E:  FPCCECLRE; 

CECLARE  (CCLNT, liFEREtHCWiMANY)  ADDRESS 

00151 

2 

00152 

2 

EASE'.HFERE; 

00153 

2 

CC  1=0  TC  31 

00154 

2 

Bi8YTE(I)«GETiCHAR; 

00155 

■a 

ENC: 

base-nhere  - 1; 

CC  COUNT  • 1 TO  HCMiMANY; 

C0156 

2 

00157 

2 

C0158 

C0I59 

2 

BiBVTE (CCLNT )=GETiCHAR: 

a 

END; 

C0I60 

00161 

C0162 

i 

1 

CALL  NEXItCFAR: 
ENO  1NITIALI2E; 

90163  1 

00164  1 

0016  5 2 

00166  2 
00167  2 

C0168  2 

CC169  2 

C017C  2 

00171  2 

00172  2 

00173  2 

00174  2 

CQ175  2 

C0176  2 

00177  2 

00178  2 

00179  2 

C0180  2 

CC181  2 

00182  2 

00183  2 

00184  3 

00185  3 

C0166  3 

00187  3 

00188  3 

00189  3 

CC190  3 

0C191  3 

0C192  3 

0C193  3 

0C194  3 

00195  3 

0C196  3 

0C197  3 

CC198  3 

CC199  3 

C0200  4 

00201  4 

00202  3 

00203  3 

00204  3 

00205  4 

00206  4 

0O2C7  3 

C02C8  2 

C02C9  J 
C0210  1 

00211  1 
00212  1 

00213  1 

00214  1 

00215  1 

00216  1 

00217  1 

00218  2 

C0219  2 

00220  1 
00221  1 
00222  1 
00223  1 

C0224  1 

00225  1 

00226  2 

00227  2 

C0228  1 

00229  1 

00230  1 


BUILC:  PROCECURE; 
CECLARE 
F2  LIT  ‘eS 

F3  LIT  'S’, 

F4  LIT  *21 


r j I,  1 • ^ ! 

F4  LIT  *21‘. 

F5  LIT  <25'. 

F6  lit  'll', 

F7  LIT  ■:'9S 
F9  lit  ‘AB*. 

FIO  LIT  'ti,', 

Fll  lit  'EO'! 

F13  LIT  ‘El*, 

COP  LIT  'E2', 

IFT  lit  'tl-, 

EST  LIT  "EA*, 

TER  LIT  'E5*. 

SCO  LIT  'EE'i 

EC  FOREVER: 

IF  CFAR  < F2  THEN  CALL  STOPEdI: 

ELSE  IF  CHAR  < F3  THEN  CALL  STOREIZI; 

ELSE  IF  CHAR  < F4  THEN  CALL  ST0RE(3), 

ELSE  IF  CHAR  < F5  THEN  CALL  STOREIA,'; 

ELSE  IF  CHAR  < F6  THEN  CALL  ST0REI5.'; 

ELSE  IF  CHAR  < F7  THEN  CALL  STORElEI; 

ELSE  IF  CVAR  < F9  THEN  CALL  STOREIT); 

ELSE  IF  CHAR  < FIO  THEN  CALL  SlORE(9l: 

ELSE  IF  CHAR  < Fll  THEN  CALL  STOREllOli 

ELSE  IF  CHAR  < F13  THEN  CALL  STOREdlli 

ELSE  IF  CHAR  < GDP  THEN  CALL  ST0REd3l: 

ELSE  IF  CHAR  = GDP  THEN  CALL  GCFCEPENC ING; 

ELSE  IF  CHAR  = DST  THEN  CALL  BACKiSTUFF; 

ELSE  IF  CHAR  » INT  THEN  CALL  INITIALIZE; 

ELSE  IF  CHAR  « TER  THEN 

oc: 

CALL  PRINT!. 'LOAD  FINISHED*'); 

RETURN; 

ENC; 

ELSE  IF  CHAR  « SCO  THFN  CALL  STARTSCOCE: 

ELSE  CC; 

IF  CHAR  <>  OFFH  Then  call  print!. 'LCAO  ERRCR*'): 
CALL  NEXTJCHAR; 

ENC: 

ENC; 

ENC  ELILC; 

/*  PROGRAM  execution  STARTS  HERE  ♦/ 

FCB*eVTE«0: 

CALL  NCVEi.  !'CIN' ,0,0,0.0),FCB  + 9,7)1 

IF  OPEN!FCB)*255  THEN 

CO; 

CALL  PRINT!. 'FILE  NET  FOUND  *'); 

CC  TO  BCCT; 

ENC: 

CALL  NEXTSCHAR; 

CALL  euiLC: 

CALL  PCVB1.1NTERF*FCB,FCB,33): 

IF  OFEN!FCB)»255  THEN 
CO; 

CALL  PR  INT  !.' INTERPRETER  NCT  FCUNO  *'): 

GC  TO  BCCT: 

END; 

CALL  FCVEIREAOERSLOCATICN.  eOH,  80H); 

GO  TC  boh; 

ECF 
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00003 

OCCO^ 

00005 

OOCOe 

OOCCT 

COCOS 

CQC09 

CCCIO 

00011 

00012 


/•  this  frcgrah  takes  the  code  output  from  the  cobcl 
AKC  CCNVERiS  IT  INTO  A READABLE  OUTPUT  TO  FACILITATE 


00013  1 

000  lA  1 
00C15  1 

C0C16  1 

C0C17  1 

cooie 

COCIS 

cocao 

OOC21 
C0C22 
C0C23 
C0C2A 
OOC25 
C0C26 
00C27 
, C0C28 
C0C29 
CCC30 
C0C31 
OOC32 
C0033 
C0C3A 
C0C3S 
uOlI  6 
00C37 
C0C38 
C0C39 
COCAO 
COCAl 
C0CA2 
CCCA3 
OOOAA 
C00A5 
C0CA6 
OOCA7 
COCAS 
COCAS 
C0050 
C0C51 
0CC52 
CCC53 
0005A 
COC55 
C0CS6 
COC57 
C0C5E 
C0C5S 
C0C60 
00C6I 
C0C62 
C0C63 
J0C6A 
OOC65 
OOC66 
0CC67 
CCC6S 
COCAS 
COC70 
00071 
00C72 
0CC73 
C0C7A 
OOC75 
00C76 
00077 
C0C78 
C0C79 
CCC80 
CCC81 
CCC82 
CCC83 
CCC8A 
CCC85 
0CC8A 
ooce  7 
00C88 
CCC89 
CCC90 
ecc9i 

mi 

‘CC9A 
CC9S 
CC96 

\ni 

CC99 
.0100 

im 

C0103 


lOOHi 

/»  LOAD  POINT 

•/ 

CECLARE 

LIT 

LITERALLY 

•LITERALLY* , 

BOOT 

LIT 

•0-- , 

BOCS 

LIT 

*5*1 

INITIAL  (5CH>, 

FC8 

ACCRESS 

FCEIBYTE 

EASED  F:b 

BYTE, 

I 

AOCR' 

EYTEi 

ACCRESS 

INITIAL  (lOOHI 

CHAR 

BASED  AOOR 

BYTE, 

CSACCR 

EASED  ACOR 

ADDRESS, 

BUFFiENO 

LIT 

• OFFH* , 

FILEITYPE 

DATA  1 'C'f'I'i 

■N*  ); 

ROM:  PRCCECLRE  IF.AI: 

CECLARE  F BYTEi  A ADDRESS: 
£C  TO  BCCS: 

END  PCNl: 


MCN2:  PROCECLRE  <F,AI  BYTE; 

DECLARE  F SYIE.  A ADDRESS; 
CC  TO  BCCS: 

END  PCM2: 


PtINIlCHAa:  PSCCECLIflEICHAS); 
CECLARE  CHAF  BYTE : 

CALL  MCM  (2  .CHAR)  : 

END  PFINUOAR; 


CRLF:  PRCCECLRE: 

CALL  PR  IM1CHARM3)  : 
CALL  PRiNTJCrARUOl  ; 
ENC  CFLF; 


PROCEDURE (ACCI I : 
CECLARE  ACCl  ACDRESS. 
CALL  CPlF; 

CC  1-0  TC  ■ 


C BaCEC  AODl  BYTE; 


CALL  F^  INTtCKARICI II  I : 

EKD; 

CALL  PFIKTICFARI*  •): 

END  P; 

G£'.  :fAR:  PRCCECLRE  BYTE: 

IF  (ACCRJ-ACCR  ♦ U>BUFF$ENC  THEN 
CC: 

IF  FCK<I20,FCB»00  THEN 
DC; 

CALL  PI.'END* I: 

CALL  TIPE(IO); 

CC  TO  SCOT: 

ENC: 

A0CF-8CF : 

6NC  * 

RETURN  CFAR; 

ENO  CETJCFAR; 

OSCHAR:  PRCCECLRE  ( OLTPUT TBYTE  I : 

CECLARE  CLTTLTABYTE  BYTE: 

IF  CUTPUTIEYTEAIO  THEN  CALL  PR  I NT tCHAR (0U7PUTSBYTE  ♦ 
ELSE  CALL  Pf  INTJCHARIOUTPUTIBYTE  ♦ 37H) ; 

ENO  CiCFAR; 

Di  PRCCECURE  (CCLNTI: 

CECLARE  ICCLNT ,JI  ADDRESS: 

CC  J-1  TC  cclrt: 

CALL  CICHARI SHR(GET$CHAB,4» 1 : 

CALL  ClCHARIChAR  and  OFhi: 

CALL  PRINTACHARC  •); 

ENC: 

ENO  0; 

PRINTIREST:  FRCCEOURE: 

CECLARE 
F2  LI  ■ 


F3 

F4 

F5 

F6 

F7 

FS 

FlC 

FI  3 
CCP 
IM 

SCO 


■I't 

•2JS 
•25'. 
•27', 
•29*, 
•AS'  , 
■EA'  . 
•EC, 

•<l't 
•62'  , 
•(■', 
•«  A*  . 
•t!>, 
•tt'; 


CCRPILER 

CEBUGGING 


30H): 


00104  i 


CO  110  2 

00111  2 
00112  2 

00113  2 

00114  2 

00115  2 

00116  2 

00117  2 

00118  2 

00119  2 

C0120  2 

00121  2 
00122  1 

00123  1 

00124  1 

C0125  1 

C0126  1 

00127  1 

CO  128  1 

00129  2 

C0130  1 

C0131  1 

C0132  1 

00133  1 

00134  I 

00135  2 


IF  CHAR 

IF  CHAR 
F CHAR 
F CHAR 
F CHAR 
F CHAR 
F CHAR 
IF  CHAR 
IF  CHAR 
IF  CHAR 

If  char 

IF  CHAR  = 
IF  CHAR- 
IF  CHAR. 
IF  CHAR. 
IF  CHAR. 
IF  CHAR 
ENC  FRIN7ARI 


< F2  7HEN  PETUR 

< F3  THEN  00;  C 

< F4  THEN  OC;  C 

< F5  then  00;  C 

< F6  Then  00;  c 

< F7  then  00:  c 

< F9  THEN  do;  C 

< FlC  THEN  oa; 

< Fll  THEN  00; 

< F13  THEN  DO; 

< OCR  THEN  OC; 
»CCF  THEN  CO:  CA 
•INT  THEN  do;  CA 
•eST  THEN  CO;  CA 
-TER  THEN  DO;  CA 
-see  THEN  DO;  CA 

<>  OFFH  THEN  CA 
E£T; 


ETURN;  ENC; 
ETURN;  ENC; 
ETURN;  ENC; 
ETURN;  ENC: 
ETURN;  ENC: 
ETURN;  ENC; 
return;  ENC; 
return:  ENC: 

RETURN;  END; 
return:  ENC; 

LL  CISHLICHAR.ll 
LL  C<C*ACCR  ♦ II 
TURN;  ENC; 

I;  GO  TC  eCOT;  E 
TURN;  ENC: 


/»  program  EXECUTION  ST 

FCeJBYTE-O; 

OC  I-C  TO  2; 

FCBABYTEUtSI-FILESTYPE 

ENC: 

IF  HCN2U5.FCB  1-255  THEN  DO 
CO  HHUE  i; 

IF  GETACHAR  <«  66  THEN 


00136 

3 

:all 

P(  . 

ADD 

00137 

3 

“ALl 

PI  4 

MJH 

C013B 

3 

:all 

PI  . 

Pill 

C0139 

3 

-ALL 

FI. 

CIV 

C0140 

3 

:all 

H<  . 

nk; 

00141 

3 

-.Al  1 

P(  . 

5iP 

00142 

3 

.ALL 

PI  . 

STI 

00143 

3 

'.ALL 

Ft  . 

RNO 

00144 

3 

'.ALL 

F ( . 

RET 

CO  14  5 

3 

.ALL 

P(« 

(.1  .S 

C01A6 

3 

:all 

FI  . 

00  IA7 

3 

'.ALL 

P(  . 

PRN 

CQl^e 

3 

"ALL 

F<  . 

( FN 

C0149 

3 

:all 

F(. 

CPI 

C0150 

3 

.ALL 

P • 

(ipp 

00151 

3 

:all 

F 4 

PG7 

00152 

3 

'.Al  L 

P( . 

PI  T 

00153 

3 

'ALL 

P(. 

RfC 

00154 

3 

.ALL 

FI. 

INV 

CCI55 

3 

-.ALL 

K. 

Ft'P 

00156 

3 

'.ALl 

FI  . 

AI.I, 

00157 

3 

'.Al  1 

P(  . 

CI.S 

00156 

3 

'.ALL 

P(  4 

STD 

C0159 

3 

'.ALL 

ID! 

CC160 

3 

'.ALL 

P(  . 

ck; 

00161 

3 

:all 

P ( . 

srr 

C0162 

3 

:all 

P(  . 

Sll 

00163 

3 

‘.ALL 

P(  . 

SIP 

00164 

3 

"ALl 

PI  . 

ST  3 

CO  165 

3 

:ali 

PI  . 

ST  4 

C0166 

3 

:all 

PI. 

SI  9 

00167 

3 

:all 

PI. 

IQO 

00168 

3 

".ALL 

PI. 

LOl 

CC169 

3 

.ALL 

PI. 

102 

C0170 

3 

-.ALt. 

PI. 

1 1)1 

00171 

3 

-.ALl 

PI  . 

L04 

00172 

3 

:au 

FI  . 

1 OA 

00173 

7 

:ali 

PI  . 

1 06 

00174 

7 

:all 

^ I . 

FHR 

C0175 

3 

'.ALL 

FI  . 

CNU 

00176 

3 

‘.ALL 

PI  . 

INS 

00177 

3 

Al  1 

PI. 

f Al 

C0178 

7 

:au 

PI. 

C0179 

3 

:all 

U . 

Cl  s 

CC180 

3 

:all 

FI  . 

POP 

0C181 

3 

-.ALl 

P«  4 

WTP 

CC182 

7 

;au 

PI. 

PVL 

00183 

3 

-,AU 

FI  . 

l^VL 

CC184 

3 

^ALL 

PI. 

SCR 

00185 

3 

;all 

F I . 

SGI 

CC186 

3 

CALI 

PI. 

SLT 

00187 

3 

CALL 

P<  4 

SHU 

C0188 

3 

!all 

*’!• 

PCV 

CC189 

3 

'au. 

PU 

PRS 

CC190 

3 

:all 

PI- 

hP.S 

0C191 

3 

;ali 

P<  4 

ppp 

0C192 

3 

‘ah 

PI  . 

KRH 

0C193 

3 

,AU 

• 

RWP 

CC194 

3 

Jali 

P(  4 

CIR 

0C195 

3 

‘.ALl 

PI  - 

PH) 

CC196 

3 

CALI 

PI  . 

PNH 

0C197 

3 

‘ALl 

FI. 

CPO 

CC198 

3 

;all 

PI. 

INT 

CC199 

3 

.ALl 

f ! • 

RSI 

C0200 

3 

-.ALl 

FI  . 

7FR 

00201 

3 

CAU 

F 1 . 

SCO 

ENO;  /•  CF  CA5E  STATEHE 
CAU  PRINTIREST; 

ENC;  /»  END  CF  CC  WHILE  */ 
EOF 


Cl^<5 

4 

/* 

RRR 

*/ 

01446 

4 

01447 

4 

cc; 

C1448 

4 

CALL  SET$RAN0CM*P0INTER; 

C1449 

5 

CALL  REAOtTClMEMCRY: 

C1450 

5 

CALL  INC$PTR(9); 

01451 

5 

ENC; 

01452 

4 

*/ 

01453 

4 

/* 

ViRR 

01454 

4 

01455 

4 

CPLL 

writesranoom; 

01456 

4 

01457 

4 

/• 

Rt>R 

»/ 

C1458 

4 

01455 

4 

CPLL 

writesranoom; 

C1460 

4 

01461 

4 

/* 

CLR 

»/ 

01462 

4 

01463 

4 

cc; 

01464 

4 

CALL  SETtRANDCHtPCINTER; 

01465 

5 

CALL  WRlTEiZEROtRECORO: 

01466 

5 

CALL  1NC*PTR(91: 

01467 

5 

END; 

C1468 

4 

C1469 

4 

/« 

RED 

»/ 

01470 

4 

01471 

4 

cc; 

CALL  M0VE(C1AD0R(3I tCtACDR,ClAOOR(6 ) ) : 

01472 

4 

014  73 

5 

EASE=C*AODR(lt: 

01474 

*> 

HOLO=C*A[,OR; 

01475 

5 

CTR»0; 

00  WHILE  (CTR<CSA00R(1 ) )AND(CTR<C4ADCR (4)) ; 

01476 

5 

01477 

5 

CALL  CHECKAEDITIHIBYTE) ; 

C1478 

6 

end; 

C1479 

5 

IF  CTR  < C*A00R(4)  THEN 

C1480 

5 

CALL  FILL(HCLD,CAAD0R(9I-CTR,  • •!; 

01461 

5 

ENC: 

C1462 

4 

KhE 

01483 

4 

/* 

*/ 

01464 

4 

C1485 

4 

C1486 

4 

01487 

4 

/♦ 

COP 

*/ 

01488 

4 

01489 

4 

cc: 

C1490 

4 

DECLARE  OFFSET  BYTE; 

OFFSET=CONVERTtTOSH£X(CSAOCR(ll ,Ci8YTE(l)-ll ; 

01491 

•5 

01492 

9 

IF  OFFSET  > CA8YTE  + 1 THEN 

01493 

9 

DO; 

C1494 

5 

CALL  PRINTSERRORl 'GC* ) : 

01495 

6 

CALL  INC1PTR1SHL(C18YTE,11  *61; 

01496 

6 

END; 

ELSE  PROSRAM$CGUNTER»C*AOORICFFSET  < 2); 

01497 

5 

01498 

5 

ENC; 

C1499 

4 

C1500 

4 

ENC 

S /♦  END  CF  CASE  STATEMENT  ♦/ 

01501 

3 

ENOl 

; /* 

ENC  CF 

DC  FOREVER  •/ 

01502 

01503 

01504 

2 

ENC 

EXECUTE; 

1 

t*  ' 

« « * 

• • • • PROGRAM  EXECUTION  STARTS  HERE  <»*»»*»/ 

01505 

1 

01506 

1 

B4S£«CC06SST^RT ; 

01507 

1 

PRCGR4R$CCCNT0P«eSACCR; 

01508 

1 

CULL  E7ECUTE 

C1409 

1 

EOF 
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UOCUl 

C0002 

COCOJ 

cocos 

I 0006 

JCC07 

COCOS 

C0009 

(OCIO 

C0C13 

C0C14 

QOCIS 

OOC16 

00C17 

cooie 

OOC21  1 
COC22  1 
00023  1 

00C2<>  2 

OOC25  2 
C0C26  2 

00C27  I 

?8P2l  \ 

CUC30  2 
C0C31  2 

COC32  1 
30C33  t 
C0C36  2 

C0C35  2 

00C36  2 

00C37  2 

OOC38  2 
C0C39  2 

(0C60  1 

00061  1 

00062  I 

00063  1 

Q0C66  1 

C0C6S  i 
00C66  2 


«.iu  1 

SS8H  I 

00013  1 

C0016  1 

C0C15  1 

C0C16  1 


C0C19  2 

C0C20  2 

00C21  2 

C0C22  1 

00023  1 

, 00026  2 
00025  2 

C0C26  2- 

00027  1 

0002  8.  1 
C0C29  ' t 
C0C30  2 

coon  2 

OOC32  1 
00033  1 


/•  COBOL  CCSfILEP  - P*8T  2 RtACER  •/ 

/•  THIS  mccp»t*  1$  IC40E0  IN  WITH  THt  PART  1 PR05RAP 
ANC  IS  CALLCC  hPtN  PA-<T  I IS  FINISHED.  THIS  PROGAAH 
OPENS  TH  PAPT2.COM  file  THAT  CONTAINS  THE  CODE  FOR 
PART  2 CF  TPE  CQPFILER,  ANO  READS  IT  INTO  CCRE.  AT 
THE  END  CF  TFE  READ  CPEPATICN.  CONTROL  IS  PASSED  TC 
THE  SECCKC  FART  PROGRAM. 


31C0H1  /*  LCAC  POINT  */ 

DECLARE 


Kbs  lItIpalLT  'SH*;  /•  ENTRY  TC  THE  OPERATING  SYSTEM  «/ 

start  literally  ‘ICOHS  /•  STARTING  LOCATION  FOR  PASS  2 •/ 
FCB  1331  BYTE  1 M TI Al tO , • PASS2  COM • ,0 .0,0, 0 I , , , 

LASTCMA  AOCPESS  IMT  IAL  (2680H1 , /•  80  LESS  THAN  H.EMCRV  •/ 

I ADCRESS: 

MCMAi  PRCCECLREIP.AI; 

CECLARF  F EYTE.  A ADCRESS: 

GC  TO  CCCSS 
ENC  mcna; 

MCNB:  PROCECLREIP.AIBYTE: 

DECLARE  F BYTE,  A ADDRESS; 

GC  TC  BOCS; 

END  mcnb: 

error:  PPOCECuRE ICODE); 

DECLARE  CCCE  ACORESS: 

CALL  MCNAiE.IHIGHICCCEm; 

CALL  MCNA(2,(LCV,(CCCE)  )l: 

CALL  TIME(K); 

CC  TC  BCCT; 

ENC  error; 

/*  OPEN  FASS2.CCM  •/ 

IF  MONBI 15..fCe)'255  THEN  CALL  ERRCR('02*>; 

/•  READ  IN  FILE  •/ 

DO  I'lOOH  TC  LASTOMA  BY  80H; 

CALL  MGNA(2t,Tl:  /•  SET  DMA  */ 

IF  M0N6(2C,  .FCaioO  THEN  CALL  ERRCRCR2*); 

ENO  * 

CALL  MCNA<26,eCH);  /•  RESET  DMA  •/ 

CC  TC  START; 

EOF 


0C6<>  1 

0C50  1 


/♦  COBOL  CCMPILER  - INTERP  REACER  •/ 

/J.  CALLEO  by  THE  BUILD  PROGRAM  AFTER 

CBLINT.CCH  FAS  BEEN  QPENcD,  ANC  READS  THE  CODE  INTO  MEMORY 

80M  /•  LOAD  POINT  •/ 

declare 


literally  'OH*. 

LITERALLY  'SF*,  /*  ENTRY  TO  THE  OPERATING  SYSTEM  •/ 

STARTING  LOCATION  FOR  PASS  2 •/ 
iSrSill  INITIALUEBOHI,  f»  80  LESS  TFAN  MEMORY  •/ 
AUtHcSS  f 


BOOT  literally  *0H*, 

BOOS  literally  'SF*,  /•  ENTRY  1 

'ICOH',  /«  STAR! 
^ASTDMA  JgCR|S|  INITIALUEBOHI,  / 

MONA:  PRCCEOLRE (F ,A) ; 

^ ADCRESS, 

END  MONA; 

MCNB:  FRCCECLREIF.AIBYTE; 

ENO, MCNB, 

DO  I>ICOH  TC  LASTOMA  BY  SDH: 

CALL  MCNA<2t.I);  /*  SET  DMA  »/ 
IF  M0NBI20 ,;Chl<>0  THEN  CO  TO  BC 
c NC  } _ 

CC  TO  start; 
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